А) ball.exe
б)ball.txt
в)ball.bmp
г)ball.bmp
2) Расширение файла , вес , дата и время изменения файла
1.истиное высказ.2.ложное.3.предложения которое не является выска.4.истинного высказывания со словами "неверное,что".
var
i, b: integer;
begin
b := 0;
for i := 1 to 100 do
if (i mod 2 <> 0) then b := b + i;
writeln(b);
end.
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.