Есть ответ 👍

Program z6 var s,k integer begin s: =0 for k: =0 to 6 do s: =s+15 write (s) end​

171
248
Посмотреть ответы 1

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


Program project; uses crt; var   a,b,c: real;   sa: real; begin   clrscr;   read(a,b,c);   readln;   sa: =(a+b+c)/3;   if sa> =0 then     writeln(sa: 0: 5);   readln; end.

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