На языке программирования turbo pascal, используя цикл с предусловием, цикл с постусловием и цикл с счетчиком, напишите программы, вычисляющую факториал числа, введённого с клавиатуры. факториал: n! =1*2*3*…*n например: 4! =1*2*3*4=24
Программы-переводчики, как и онлайн переводчики предназначены для быстрого перевода текста на другой язык, отличный от оригинального текста, без высокой квалификации пользователя по знанию иностранного языка. Текст на русском языке, полученный путём машинного перевода, можно быстро отредактировать. Особенно удобно пользоваться переводчиком при работе с большим объёмом текста. А вот те люди, которые слабо знают английский язык, и они так переводят русский текст на английский язык, они могут использовать этот текст только для себя, например, для получения навыков по правке английских текстов. Только не надо надеяться кого-то так обмануть, не надо куда-то сдавать этот текст, так как квалифицированный человек быстро найдёт ошибки в английском тексте, который был получен при машинном переводе.
Программы-переводчики, как и онлайн переводчики предназначены для быстрого перевода текста на другой язык, отличный от оригинального текста, без высокой квалификации пользователя по знанию иностранного языка. Текст на русском языке, полученный путём машинного перевода, можно быстро отредактировать. Особенно удобно пользоваться переводчиком при работе с большим объёмом текста. А вот те люди, которые слабо знают английский язык, и они так переводят русский текст на английский язык, они могут использовать этот текст только для себя, например, для получения навыков по правке английских текстов. Только не надо надеяться кого-то так обмануть, не надо куда-то сдавать этот текст, так как квалифицированный человек быстро найдёт ошибки в английском тексте, который был получен при машинном переводе.
нц пока не сверху свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно
закрасить
вниз
кц
15.2 Решение
var k, n, a, amax: integer;
begin
amax:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a>amax) then
amax:=a;
end;
writeln(amax);
end.
Для проверки правильности работы программы необходимо использовать следующие тесты:
Объяснение: