Телескоп-что-бы изучать звёзды
микроскоп-что-бы изучать клетки
часы-для того чтобы всегда знать сколько времени
компьютер-для того чтобы обрабатывать информацию
Я не много не поняла
Sori I m
WIndows, MacOS, Linux, IOS, Android, IBM, DOS, El Capitan, sun os, microdos
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.