Программа:
var i,a,a1,a2,a3: integer;
begin
for i:=101 to 999 do
begin
a:=i*i;
a1:=a mod 1000 div 100;
a2:=a mod 100 div 10;
a3:=a mod 10;
if (a1=a2)and(a2=a3)and(a1<>0) then writeln(i,' ',a);
end;
end.
Результат:
462 213444
538 289444
962 925444
Для начала складываем 4+8 и получаем 12 или по 5 горшков.
А потом меняем большие горшки на маленькие.
Один большой равен двум маленьким и наоборот два маленьких равны одному большому.
P.S.:ну во как-то так.думаю что ты поймешь)))
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s
1. Полное имя файла - весь каталог, заданный в задаче, со всеми его элементами. Ответ : а)
2. Расширение файла - тип или же формат файла, предоставленного нам. Ответ : б)
3. Имя папки - это, собственно, то место, где хранится наш файл. Ответ: в)
Int main ...
int a,b,c;
cout <<" 2+2=4? 1-да, 2 - нет " << endl;
cin>>a;
if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>cout <<" 3+2=5? 1-да, 2 - нет " << endl;
<span>cin>>a;
</span>if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>system ("pause");
return 0;