1). 218=332
2). 176,25=незнаю
3). 111000100=452
4). 100000,01=незнаю
Думаю, что эта программа подойдёт:
var count,i,n,min,book: Integer;
a: array[0..100] of Integer;
begin
min:=1000;
writeln('Введите кол-во учебников');
readln(count);
dec(count);
for i:=0 to count do
begin
writeln('Введите кол-во заданий в ',i+1,' учебнике');
readln(n);
a[i]:=n;
end;
for i:=0 to count do
begin
if a[i]<min then
begin
min:=a[i];
book:=i+1;
end;
end;
writeln('Номер учебника, в котором находится наименьшее кол-во заданий: ',book);
end.
Для 16 (2^4)
640*480*4=1228800 бит=153600 байт
512*1024=524288 байт
524288 /153600=3
Для 256 (2^8)
640*480*8=2457600 бит=307200 байт
512*1024=524288 байт
524288 /307200=1
Проверь соединение с жестким диском , порядок загрузки в биосе.
Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.
Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:
var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.