Program n1;
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if a<>b then if abs(a)=abs(b) then goto t;
if a<>c then if abs(a)=abs(c) then goto t;
if b<>c then if abs(b)=abs(c) then goto t;
writeln('нет');
t:
writeln('есть');
end.
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
На гибких магнитных дисках (дискетах).
Остальные носители, CDRom, USB-Flash, HDD, обычно защищены от такого.
Известно количество байт для цвета ОДНОГО пикселя.
Известна ширина и высота фотографии в ПИКСЕЛЯХ.
Неужели трудно все перемножить?
Ответ 18 834 234 байт.