Бережливым быть умей,
И по клавишам не бей,
Там, учтите этот факт,
Если вводишь ты ответ,
А компьютер скажет "Нет",
По дисплею не стучи,
Лучше правила учи!
Разрешать работу строго
С разрешения педагога,
И учтите : вы в ответе,
За порядок в кабинете!!
38. 1 (*4) => 4 (*4)=> 16(-3) => 13(*4) => 52(-3) =>49
=> - команды
39. 5(+3)=>8(+3)=>11(^2)=>121(+3)=>124(+3)=> 127
40. 5(+1)=>6(^2)=>36(+1)=>37(+1)=>38(+1)=>39
Var a,b: integer;
c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
c:=(a+b)/2;
write('среднее арифметическое: ',c);
end.
Значение функции F всегда больше нуля.
цикл будет выполняться от -20 до 0 двадцать раз
0 двадцать первый раз
от 0 до 20 ещё двадцать
Итого Сорок один
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.