Задачі до уроку 6 клас Кораблики Петя, Катя і Сергій роблять з паперу кораблики. Разом вони зробили - id1874591320210927 от DestapTM 27.09.2021 06:10

Question

Информатика: Задачі до уроку 6 клас Кораблики Петя, Катя і Сергій роблять з паперу кораблики. Разом вони зробили S корабликів. Скільки корабликів зробила кожна дитина, якщо відомо, що Петя і Сергій зробили однакову кількість корабликів, а Катя зробила в два рази більше корабликів, ніж Петя і Сергій разом? Вхідні дані Одне натуральне число S - загальна кількість зроблених корабликів (S 106). Вихідні дані Вивести три числа, розділених пробілами - кількість корабликів, які зробила кожна дитина (Петя, Катя і Сергій).

DestapTM · Accepted Answer

var a, b, c, d, i, j :integer;
s :array [1..100,1..100] of integer;
begin
b:=63999;
c:=-63999;
for i:=1 to 15 do
begin
writeln;
for j:=1 to 15 do
begin
s[i,j]:=random(127998)-63999;
a:=a+s[i,j];
if s[i,j]>c then c:=s[i,j];
if s[i,j]<b then b:=s[i,j];
write (s[i,j],' ');
end;
end;
writeln;
writeln ('Сумма элементов = ', a);
writeln ('Максимальный элемент = ', c);
writeln ('Минимальный элемент = ', b);
end.

MOGZ ответил