Задание 1
var i : integer;
begin
for i := 4 to 9 do writeln(i,'*',i ,' - ',i*i);
end.
Задача 3
Var n,m,p,k:integer;
Begin
write('n=');
read(n);
m:=n;k:=0;
while m<>0 do
begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('k=',k);
end<span>.
</span>
Ответ:2175 кб
Объяснение: За 40 сек. Передается файл размером 1450 КБ, значит надо 1450:40, этим действием мы получим скорость соединения и эту скорость мы умножаем на 60 сёк и получаем 2175 КБ.!
2)var x,y:integer;beginreadln (x,y); while x<16 do begin if x>y then beginx:=x-2;y:=y+4 end else beginx:=x+5;y:=y-3; end; end;writeln ('x=',x,'y=',y);end.
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам
Ответ:
program Elevator;
var
n, k, a, b: Integer;
s: string;
begin
Write ('Введите n, k, a, b: ');
ReadLn (n, k, a, b);
WriteLn ('На лифте = ', (k + n - 2) * b, ' По лестнице = ', (n - 1) * a);
ReadLn;
end.
Объяснение:
по лестнице:
n - 1 этажей, а секунд на этаж, время = (n - 1) * a
n - 1 потому, что Миша находится на первом этаже, а не на нулевом
на лифте:
лифт едет на 1-этаж: k - 1
Миша едет к себе: n - 1
всего этажей = (k - 1) + (n - 1) = (k + n + 2)
общее время = (k + n + 2) * b
