Var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
<span>ДАНО:2^30
НАЙТИ В МБАЙТАХ
</span><span>2^30/2^3/2^10/2^10=2^7=128</span>
N=256
K=720•348
I(битах)-?
N=2^i
256=2^8
I=ki
I=720•348•8=2004480 битов
Числовые типы — типы данных, выражающие число. Притом как целое, так и дробное.
Но НЕ строку, содержащую название или обозначение числа.
Следовательно, подходят только 1; 5; 6.
Остались ненужные нам типы:
4 — логический тип (булевый)
2, 3, 7 — строковый тип (текст)
Ответ: 1; 5; 6
Program fofgogjoj;
var
a,b,c,ot:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then
ot:=ot+1;
if b<0 then
ot:=ot+1;
if c<0 then
ot:=ot+1;
Writeln('Кол-во отрицательных чисел:',ot);
<span>end.</span>