38. 1 (*4) => 4 (*4)=> 16(-3) => 13(*4) => 52(-3) =>49
=> - команды
39. 5(+3)=>8(+3)=>11(^2)=>121(+3)=>124(+3)=> 127
40. 5(+1)=>6(^2)=>36(+1)=>37(+1)=>38(+1)=>39
<em>// PascalABC.NET 3.2, сборка 1404 от 16.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,k:integer; Read(a,b,k);
Writeln(Range(a,b).Where(i->i mod k=0).Count)
end.
1) 4 и 5
2) 1 и 6
3) 4 и 5
4) не знаю(
5) ложь или просто -, не знаю как у вас в школе
6) ложь или -
7) не знаю
8) вроде 4, но это не точно, так что аккуратно
Надеюсь помог
var
a, b, s, p: real;
begin
writeln('Введите длину прямоугольника:');
read(a);
writeln('Введите ширину прямоугольника:');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);
end.
Ответ с момента начала скачивания Васей данных, до полного их получения Петей пройдёт 349346 (секунд).