Программа:
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
Uses crt;var i,s:integer; a:array [1..100] of integer;
beginfor i:=1 to 4 do begin writeln ('vvedite massiv');readln(a[i]);end;for i:=1 to 4 do begin s:=s+a[i];end;writeln(s,' ');end.
Используя формулы из логики, упростим данное выражение (в частности формула замена импликации=> для переменных А и В А=>B = (не)А V В
Затем подставляем входные данные
2) для удобства использования компьютера
3) стрелка
4) от настроек или действия выполняющееся мышкой
5) лазером
111 - Н
110 - Е
01 - Т
10 - О
111|110|01|10=НЕТО
Ответ: НЕТО