Не знаю что там за дано и решение и как оно оформляется, у нас в школе такого не было
1) пусть текст кодирован кодировкий ASCII по 8 бит на символ
0,25кб = 0,25*1024*8 бит
0,25*1024*8 / 8 = 256 символов
2) пусть текст кодирован кодировкий ASCII по 8 бит на символ
5*30*70 = 10500 всего символов
10500 * 8 бит = 84000 бит = 10500 байт
Program sum;
var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
Arr[i]:=random(100);
write(Arr[i],',');
if Arr[i] mod 5=0 then
Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5 равна ', Sum);
readln;
end.
это ТЕГИ Они задают форматирование
текста.
Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.