Из числа и месяца своего рождения составьте трехзначное число следующим образом: если день в дате рождения-число - id3897420200723 от anastasikot 23.07.2020 12:09

Question

Информатика: Из числа и месяца своего рождения составьте трехзначное число следующим образом: если день в дате рождения-число от 1 до 9,то к цифре из обозначения дня припишите две цифры месяца(например,для даты 02.03.93 искомое число 203)если день в дате рождения-число от 10 до 31,то к двум цифрам из обозначения дня припишите вторую цифру из обозначения месяца(например,для даты 23.11.93 искомое число 231) моя дата рождения 30.05.95

anastasikot · Accepted Answer

Проверено на Паскаль АВС

Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
    begin
      write("Ввод:") ;
      readln (r);
      sum:=sum+r;
      k:=k+1;
    end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.

MOGZ ответил