Перевод из Килобайт в Байт происходит следующим образом:
Количество Килобайт умножается на количество Байт, содержащихся в одном Килобайте.
<h3>1 Килобайт = 1024 Байт</h3>
456 Килобайт = 456 · 1024 = 466944 Байт
897 Килобайт = 897 · 1024 = 918528 Байт
<h2>Ответ</h2>
466944; 918528
Формулы: C=2πR, S=πR²
program zadacha;
uses crt;
var r: integer;
c, s: real;
begin
clrscr;
write ('vvedite radius: ');
readln (r);
c:=2*pi*r;
s:=pi*sqr(r);
writeln ('dlina okruzhnosti=', c:0:5, ', ploschad=', s:0:5);
readkey;
end.
Программа с исправленными СИНТАКСИЧЕСКИМИ ошибками:
program pr1;
var a, b, d: integer;
begin
readln(a);
readln(b);
d:=1;
while (d<>a) or (b mod 4=0) do begin
d:=d+1;
readln(b);
end;
writeln(d);
end.
В начало строки
в конец строки
на слово вправо
на слово влево
на экранную страницу вверх
на экранную страницу вниз
на страницу вверх
на страницу вниз
в начало текста
в конец текста
// 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