Регистрация
Darklife1
11.04.2023 18:49
Информатика
Есть ответ 👍

Самостотельная работа по информатике

179
202
Посмотреть ответы 2

Ответы на вопрос:

KYRT2
KYRT2
4,7(39 оценок)
Агде работа то? нет ничего
4iksa12345ozu4gd
4iksa12345ozu4gd
4,6(99 оценок)

pascal (гдето

 

program treska;

var a,i,k,b,b2,b3: integer;

begin

for i: =100 to 999 do

begin 

a: =sqr(i);  

k: =a-i;

b: =a-k;

if i=b then write (i,'     ');

end;

readln

end. 

 

Популярно: Информатика