var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.
"¬ (Первая буква имени согласная -> Третья буква имени гласная)" - это выражение истинно, когда выражение в скобках ложно.
"Первая буква имени согласная -> Третья буква имени гласная" - это выражение ложно, когда выражение "Первая буква имени согласная" истинно, а "Третья буква имени гласная" одновременно ложно.
"Первая буква имени согласная" истинно для ПЕТР и КСЕНИЯ
"Третья буква имени гласная" ложно для ПЕТР
Ответ: 2) ПЕТР
Верный ответ здесь: <span>1)hairpy.ppt</span>
S - это счетчик
потом читаем n
x присваиваем значение 5
(цикл) цикл будет работать от x (тоесть от 5) и до тех пор пока n не будет равно x увиличаем число на определённое значение s(тоесть 0,(то число которое ты ввел)находим целую часть этих чисел при делении на x )
x присваиваем значение x * 5
выводим в s
И программа вообще не работает (что тебе нужно найти?)
Ответ: Чаще всего операции с файлами : копирование, удаление, перемещение и переименование.
В примере с библиотекой - перемещение файла.