writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');
readln (d);
readln (a);
readln (b);
c: =(a+b+d)/3;
writeln (' srednii ball= ', c: 4: 2);
readln;
end.
Ответ дал: Гость
паскаль
откомпилирован в: pascal abc
program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Популярные вопросы