Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
if a[i]>5 then
sum:=sum+a[i];
writeln (sum);
end.
Ответ: 9
Ответ:
0.0087659 • 10² = 0.87659
0.0321 • 10⁻³ = 0.0000321
0.2952E+7 = 2952000
44.7924E-5 = 0.000447924
1) Совпадение каналов на смежных устройствах, могут вызвать помехи в работе беспроводной сети.
2) Погодные условия.
Переменная Pascal - это символ, обозначающий какое-то число в алгебраическом выражении.