Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Неверний ответ - а
A2+B4
Если не сложно отметь как лучший
program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
var i,s: integer;
begin
writeln('summa ');
for i: =100 to 999 do
if i mod 17 =0 then s: =s+i else s: =s+0;
writeln(s)
end.
Популярные вопросы