Print('8 8 8')
print('8 8 8')
print('8 8 8')
print('8 8 8')
print('8 8 8')
Насколько знаю в интерпритаторе питона данные выводятся в строковом типе, по-этому такой ответ тоже правильный
var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
writeln('Skolko elementov');
read(n);
s:=0; s1:=0;
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i] else s1:=s1+a[i];
end;
end;
writeln('Summa chetnix chisel = ',s);
writeln('Summa ne chetnix chisel ',s1);
end.
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
Ответ:
1)
1 Кбайт (килобайт) = 210 байт = 1024 байт
1 Мбайт (мегабайт) = 220 байт = 1024 Кбайт
1 Гбайт (гигабайт) = 230 байт = 1024 Мбайт
2)
минимальная единица измерения информации это Бит
3)
максимальная единица измерения информации это йобибайт
4)
цепочка из 8 нулей называется байт
5)
слово килобайт содержит 1 байт
6)
слово байт содержит 4 байта потому что 1 буква-1байт
BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END