Var i, byear, eyear, k : integer;
Begin
read(byear, eyear);
byear := byear + 1;
for i := byear to eyear do
if (i >= 1605) and ((i - 1605) mod 10 = 0) then k:= k +1;
writeln(k);
End.
Фомат gif
в начале идет табличка соответствия цветов под номерами
потом каждый пиксель помечается номером цвета.
Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.
2\3 диска я так думаю но это не точно