Запрограммировать шесть циклических алгоритмов (Паскаль)
1) Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм равен 2,54 см) для значений от 1 до 10 дюймов с шагом 1. 2) За 1 день рабочий изготовил 5 деталей. Напечатать, сколько деталей рабочий изготовит за 5, 6, 7, 8, 9, 10 дней. 3) В день корова даёт 6 литров молока. Сколько молока даст корова за 3, 4, 5, ..., 10 дней?.
4)В первый день спортсмен пробежал 10 км. Каждый следующий день спортсмен увеличивал норму пробежки на 500 м. Через сколько дней спортсмен будет пробегать 30 км? 5) Высота дерева равна 9 метрам. Улитка каждый день поднимается на 2 метра вверх, а за ночь спускается на 1 метр вниз. Через сколько дней улитка достигнет вершины дерева? 6) В 198... году урожай зерна составил 20 ц с га. В среднем каждые 2 года за счёт применения новых технологий урожай увеличивается в 1,2 раза. Через сколько лет урожайность достигнет 35 ц с га?
uses utils;
var
n,i,sum,time:longint;
flag:boolean;
begin
readln(n);
if n<2 then flag:=false;{Единица - не простое число}
if n=2 then flag:=true;{2 - простое}
if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
for i:=1 to n do begin{проверяем что бы было только 2 делителя}
sum:=sum+1;
end;
if sum=2 then flag:=true;
end
else flag:=false;
if flag then writeln('Число простое') else writeln('Число НЕ простое');
time:=milliseconds;
writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.