Регистрация
тэ10л
08.04.2023 18:30
Информатика
Есть ответ 👍

Вводится 5 двухзначных чисел. Программа выводит количество чисел больше 20 и кратных 3.
Паскаль. Можете полностью составить программу

169
205
Посмотреть ответы 3

Ответы на вопрос:

TheLidiKotic12
TheLidiKotic12
4,4(91 оценок)

program s1;

Var a,b,c,d,e:integer;

Begin

If (a>20) and (a mod 3=0) then

Writeln(a);

If (b>20) and (b mod 3=0) then

Writeln(b);

If (c>20) and (c mod 3=0) then

Writeln(c);

If (d>20) and (d mod 3=0) then

Writeln(d);

If (e>20) and (e mod 3=0) then

Writeln(e);

End.

reshetnicova74
reshetnicova74
4,4(69 оценок)

var

 i, n, count,count2,count3: integer;

begin

 writeln('Введите 5 чисел:');

 for i := 1 to 5 do

 begin

   readln(n);

   if (n > 20) and (n mod 3=0) then

     Inc(count);  

   if n > 20 then

     Inc(count2);

   if n mod 3 = 0 then

     Inc(count3);

 end;

 writeln('Больше 20 и кратных 3: ',count);

 writeln('Больше 20: ',count2);

 writeln('Кратных 3: ',count3);

end.

Aryzhaн
Aryzhaн
4,7(98 оценок)
1. современное решение pascalabc.net 3.2, сборка 1417 от 28.03.2017 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('введите двухзначное число: ');   writeln('максимальная цифра ',max(n div 10, n mod 10)) end. 2. школьное решения уровня турбопаскаль 1983г. var   n,d,e,max: integer; begin   write('введите двухзначное число: ');   read(n);   d: =n div 10;   e: =n mod 10;   if d> e then max: =d   else max: =e;   writeln('максимальная цифра ',max) end. 3. пример работы обоих программ (одинаковый) введите двухзначное число: 37 максимальная цифра 7

Популярно: Информатика