Информатика 5А сынып 4 токсан комектесындер бал берем

Const c=4190;//Дж/кгvar v1,v2,S1,S2,n:integer;t0,t1,t2,i:integer;S,deng:real; begin writeln('Введите сумму за один Клвт'); readln(deng); writeln('Введите за сколько времени нужно нагреть воду  в минутах '); readln(n); writeln('Введите начальное значение и конечное температуры');  readln(t0,t1);  writeln('Введите сколько литров воды нужно нагреть первый  раз '); readln(v1);  for i:=t0 to t1 do  S1:=c*v1*(t2 - t1) div n;  writeln('Введите  конечное значения температуры для нагрева воды второй раз ');  readln(t2);  writeln('Введите сколько литров воды нужно нагреть второй раз ');  readln(v2);  for i:=t0 to t2 do  S2:=c*v2*(t2-t0) div n;  S:=(S1+S2)/10000;  writeln('Киловат=',S:3:2);  writeln('Сумма=',S*deng);  end.

4.

program p3;

uses Robot;

procedure Square2;

begin

right;

paint;

down;

paint;

left;

paint;

up;

paint

end;

var i,j:integer;

begin

Task('p3');

for i := 1 to 6 do

begin

Square2;

if i<=5 then

begin

for j := 1 to 2 do left;

for j := 1 to 2 do up      

end

end

end.

5.

program p4;

uses Robot;

procedure Square2;

begin

paint;

right;

paint;

down;

paint;

left;

paint;

up

end;

var i:integer;

begin

Task('p4');

Square2;

for i:= 1 to 2 do right;

Square2;

for i:= 1 to 2 do down;    

Square2;

for i:= 1 to 2 do left;    

Square2;

for i:= 1 to 2 do up

end.

Объяснение:

Второй вариант 5-го задания с двумя процедурами

program p4;

uses Robot;

procedure Square2;

begin

paint;

right;

paint;

down;

paint;

left;

paint;

up

end;

procedure Square;

var i:integer;

begin

Square2;

for i:= 1 to 2 do right;

Square2;

for i:= 1 to 2 do down;    

Square2;

for i:= 1 to 2 do left;    

Square2;

for i:= 1 to 2 do up

end;

begin

Task('p4');

Square

end.