Известно, что Единорог лжет по понедельникам, вторникам и средам и говорит правду во все остальные дни - id1760450020200502 от KlodMone1 02.05.2020 16:35

Question

Информатика: Известно, что Единорог лжет по понедельникам, вторникам и средам и говорит правду во все остальные дни недели. Он говорит: Вчера я лгал. После завтрашнего дня я буду лгать два дня подряд». Напишите программу, определяющую день высказывания.

KlodMone1 · Accepted Answer

//прога на Pascal`e
type
myrec = record
rost : byte;
ves : byte;
end;
var
mas : array of myrec;
n, i : byte;
sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
for i:=0 to n-1 do
begin
write ('Введите вес ', i+1, '-го ученика: ');
readln (mas[i].ves);
inc (sumves, mas[i].ves);
write ('Введите рост ', i+1, '-го ученика: ');
readln (mas[i].rost);
inc (sumrost, mas[i].rost);
end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.

MOGZ ответил