Синформатикой! ) 1. составить таблицу расхода бензина от 100 км до 200 км через 20 км. (100 км пути - 8,35 литров бензина). результат вывести на экран со всеми пояснениями. 2. вычислить сумму s=1+32+52+…+n2 турбо паскаль)
Var lk,l:real; s:integer; begin write('Введите расход бензина на 100км: '); readln(lk); lk:=lk/100; writeln('путь(км)',' бензин(л)'); s:=100; while s<=200 do begin l:=lk*s; writeln(s:5,l:12:1); s:=s+20; end; readln end.
var n,s,i,k:integer; begin write('Введите n: '); readln(n); for i:=1 to n do begin k:=2*i-1; s:=s+k; write(' ',k); end; writeln; writeln('Сумма ',s) end.
s:integer;
begin
write('Введите расход бензина на 100км: ');
readln(lk);
lk:=lk/100;
writeln('путь(км)',' бензин(л)');
s:=100;
while s<=200 do
begin l:=lk*s;
writeln(s:5,l:12:1);
s:=s+20;
end;
readln
end.
var n,s,i,k:integer;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
begin
k:=2*i-1;
s:=s+k;
write(' ',k);
end;
writeln;
writeln('Сумма ',s)
end.