Program rrr;
var a,s:longint;
begin
read(a);
s:=455545656566556;
if (a mod 4)=0 then s:=a div 2
else s:=a;
write(s);
end.
1. 13 сентября 1956г., компанией IBM
2. первый жесткий диск имел емкость 5МБ
3. первый жесткий диск вращался с частотой 1200 об/мин.
4. в 1981г. 1ГБ памяти стоил 300000$, сейчас 1ГБ можно приобрести за 0,025$
5. жесткие диски предназначены для передачи информации через компьютер, ноутбук или ультрабук.
<span><span>program nazvanie;
</span><span>var a,b,b1,k,k1:integer;
</span>begin<span>
write('Введите трехзначное число: ');</span><span>
readln(a);</span><span>
b:=a;</span><span>
while b<>0 do</span><span> begin</span><span> b1:=b mod 10;</span><span>
if b1 mod 2=0</span><span> then</span><span> k:=k+1</span><span> else</span><span> k1:=k1+1;</span><span>
b1:=b div 10;</span><span>
b:=b1;</span><span>
end;</span><span>
if k>k1</span><span> then</span><span>
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
</span><span>else if k<k1</span><span> then</span><span> write('Кол-во нечетных больше, чем четаных в числе ',a);
</span><span>end.
Немного переделать и будет рабочая прога!</span></span>
Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.
