Предмет: Информатика,
автор: КIRiЛл
Нужно составить задание на паскале для каждого примера (фото)
Приложения:

Ответы
Автор ответа:
1
Ответ:
1.
program Chernovik;
var x,k:real;
begin
readln(x);
if x>6 then k:=x*x
else k:=x/2;
write(k)
end.
2.
program Chernovik;
var b,x,s: integer;
begin
readln(b);
s:=0;
if b>=5 then
begin
x:=b*b;
s:=s+x;
writeln(x);
writeln(s)
end
end.
Объяснение:
1. При делении результат всегда вещественное число, поэтому k - real, а x за компанию.
2. Начальное значение s в схеме не указано, поэтому взято равным 0. При b меньше 5 программа ничего не выводит.
Похожие вопросы
Предмет: Химия,
автор: pavel11031996
Предмет: Литература,
автор: romanpopov257
Предмет: Математика,
автор: ааа1ор
Предмет: Информатика,
автор: 666Bitch666
Предмет: Русский язык,
автор: Правило111