Напечатать числа следующим образом в паскаль : 10 10.4 11 11.4 25 25.4

127

430

Посмотреть ответы 2

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

UGvu

Информатика

4,5(79 оценок)

Var i: byte; begin for i: =10 to 25 do begin write(i,' '); writeln(i,'.4'); end; end.

Ангелина75645674

Информатика

4,5(79 оценок)

Var s: string; i,n,k: integer; begin s: = 'вот это в требует в предлогов в данном в предложении'; n: = length(s); for i: = 2 to n-1 do begin if (s[i-1]=' ') and (s[i]= 'в') and (s[i+1]=' ') then begin writeln(i,s[i]: 3); k: = k +1; end; end; write(k); end.