Var n: integer;
begin
writeln('Введите число:');
readln(n);
if n mod 2 =0 then writeln('Это четное число')
else writeln('Это нечетное число')
end.
var
m:integer;
n:real;
begin
n:=120;
m:=0;
while n<150 do
begin
n:=1.02*n;
m:=m+1;
end;
writeln('Ответ: ',m)
end.
А:=-6;
В:=-5;
А:=-6+2*(-5)=-16;
В:=-16;
Ответ: -16-16
Задание 1
var i : integer;
begin
for i := 4 to 9 do writeln(i,'*',i ,' - ',i*i);
end.
Задача 3
Var n,m,p,k:integer;
Begin
write('n=');
read(n);
m:=n;k:=0;
while m<>0 do
begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('k=',k);
end<span>.
</span>
13 сентября 1956 года, то есть более полвека назад компания IBM представила свой первый накопитель на жестких магнитных дисках (позднее данные устройства получили полуофициальное прозвище «винчестер») .
И это изобретение со временем фактически создало огромную индустрию магнитных накопителей, без которых сейчас немыслимо ни одно мало-мальски мощное вычислительное устройство, поскольку подавляющее большинство информации, которыми оперируют эти самые вычислительные устройства, хранится именно на магнитных носителях.