//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln(' x y');
for var i:=-10 to 10 do writeln(i:2,' ',i*i:3);
end.
Ответ:
это комплекс программ, которые обеспечивают управление работой компьютера, а также дают возможность пользователям взаимодействовать с ним
Объяснение:
var i,a,b,m,sum,s:integer;
begin
read(a,b,m);
for i:=a to b do begin
if(i mod m =0)then sum:=sum+i;
if(i mod 2 =1)then s:=s+1;
end;
writeln(sum,' ',s);
end.
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)