Посчитаем объём информационного сообщения:640*480*4байта=307200байтов=2457600битов. Эту величину разделим на скорость 28800, получим приблизительно...
Программа:
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
label nach;
uses crt;
var x,s:integer;
begin
s:=0;
repeat
nach:
write('vvedite x=');read(x);
if (x!=0) then begin writeln(x); s:=s+x; goto nach;end else s:=s+x;
until (x=0);
writeln('summa ravna=',s);
end.
Входные данные: a, b (смотри строку с cin>>...;)
Выходные данные: s (смотри строку с cout<<...;)
Из самого задания не совсем понятно, что за входные и выходные данные имеются ввиду. Написал я переменные, которым мы присваиваем значение при вводе и значение переменной, которой мы выводим.