tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.
da + eshe 0,3*2500=750.
vsego 2500+750=3250 bait.
Ответ дал: Гость
var
s,s1: real;
k: integer;
begin
s: =10;
k: =1;
while s< 20 do
begin
s: =s*1.1;
k: =k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s: =10;
s1: =10;
k: =1;
while s< 200 do
begin
s: =s+s1*1.1;
s1: =s1*1.1;
k: =k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
end.
Ответ дал: Гость
program e7;
var x: integer;
begin
writeln('vvedite znachenie gradusnoi meri ugla');
readln(x);
if a=180 then writeln('razvernutii') else writeln('ne razvernutii');
readln;
end.
если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.
Ответ дал: Гость
type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin randomize; n: =10; for i: = 1 to n do begin x[i]: =random(n*10)- 10*n div 2 ; write(x[i]: 4); if i mod 10=0 then writeln; end; min: =1; max: =1; for i: = 1 to n do begin if x[i]< x[min] then min: =i; if x[i]> x[max] then max: =i; end; i: =x[min]; x[min]: =x[max]; x[max]: =i; writeln; for i: = 1 to n do begin write(x[i]: 4); if i mod 10=0 then writeln; end; end.
Популярные вопросы