Объем видеопамяти =
5*12*256*512 бит = 5*12*256*512 / 8 байт = 5*12*256*512 / (8*1024) Кбайт = 960 Кбайт
На картинке все написано.
Const
St: array[1..3] of string = ('Будапешт', 'Рим', 'Киев');
Nas: array[1..3] of real = (9.9, 61.5, 44.3);
Kr: array[1..3] of string = ('Венгрия', 'Италия', 'Украина');
{Сведения о численности населения приведены по данным ресурса
CountryMeters по состоянию на 03.07.2014}
var
i: integer;
begin
write('Введите 1-Венгрия, 2-Италия, 3-Украина -> ');
readln(i);
if i in [1..3] then
writeln('Страна- ', Kr[i], ', столица- ', St[i], ', население (млн.чел.)- ', Nas[i])
else
writeln('Неверный ввод!')
end.
Тестовое решение:
Введите 1-Венгрия, 2-Италия, 3-Украина -> 2
Страна- Италия, столица- Рим, население (млн.чел.)- 61.5
Var a:array [1..50,1..50] of integer;
m,n,i,j,k,max:integer;
begin
writeln ('Введи количество строк и столбцов');
readln (n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln ('Максимальный элемент ',i,' строки = ',max);
max:=0;
end;
readln;
end.
Var a,b:real;
begin
readln(a,b);
a:=sqr(a);
b:=sqr(b);
if a > b then write('n=1')
else write('n=2');
end.