Ккормушке прилетели воробьи, синицы, снегири и вороны. мальчик посчитал количество птиц каждого вида. - id415376120210408 от Ясмина1604 08.04.2021 11:52

Question

Информатика: Ккормушке прилетели воробьи, синицы, снегири и вороны. мальчик посчитал количество птиц каждого вида. напишите программу, которая запрашивает четыре числа – количество птиц каждого вида, а затем сообщает общее число птиц у кормушки, дописывая к числовому значению слово «птица» в правильной форме. например, 33 птицы, 11 птиц, 21 птица. входные данные: 4 натуральных числа а,в,c,d ( а,в,с,d =100). выходные данные: сумма переменных а,в,c,d и слово «птица» с согласованным окончанием. пример: ввод 2 5

Ясмина1604 · Accepted Answer

вариант решения, если элементы вводятся
var
n, i, x, s : integer;
t: string;
begin
writeln('количество чисел');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' число:');
readln(x);
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
   if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
      end;
end;
writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
i, x, s : integer;
t: string;
m1: array [1..n] of integer;
begin
s := 0;
for i := 1 to n do
   begin
      x := m1[i];
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
   if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
      end;
end;
writeln('ответ ',s)
end.

MOGZ ответил