прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.
на tpascal:
var i: integer;
begin
for i: =10 to 99 do begin
if i mod 3 = 2 then
writeln (i,' ',-i,' ');
i: =i+1;
end;
readln
end.
Ответ дал: Гость
1)никакие люди не повторят подвиг матросова!
2)все великие,учёные люди подвергались критике и злобе,но это делало их сильнее.
3)не все люди могут победить в себе страх и сдержать боль перед смертью как это сделал извейстнейший казак разин
Ответ дал: Гость
var a: array [1..5] of integer; s,i: integer; begin for i : = 1 to 5 do begin writeln('a[',i,']='); read(a[i]); s: =s + a[i] end; writeln('s=',s); end.
Популярные вопросы