Мигает, движется, слушать дает (телефон) .
<span>хвост длинный, а сама масявка, пользы мало если не в "связи" с чем-то (мышь) . </span>
<span>и не картотека и не библиотека, а все знает о многих (записная книжка) </span>
<span>все укроет - сбережет, а не холодильник. (дискета) </span>
рано поднимает, до вечера донимает (школа) .
Проверяем число Н
перебираем числа от 2 до Н, если ни одно не делится, то простое, если делится - составное
var x,F: real;
i: integer; //вводим переменную-счетчик для цикла for
begin
for i:=1 to 3 do // Цикл будет выполнен 3-1+1=3 раза
begin //начало цикла
Write('введите значение x= ');
readln(x);
if x>3 then F:=-3*x+9 else F:=sqr(x)*x/(sqr(x)+8);
Writeln('F(',x:5:3,')= ', F:5:3);
end; //конец цикла
end.
алг
нач
цел a, b, c, d, e
вывод "введите a"; ввод a
вывод "введите b"; ввод b
вывод "введите c"; ввод c
e := div((a+b+c),3)
вывод e
кон