Сколько раз выполнится цикл for i:=15 to 95 do ? (в ответе напишите число)
2) Сколько раз выполнится цикл for i:=-13 to 100 do ? (в ответе напишите число)
3) В каком случае тело цикла нужно заключить в составной оператор begin end?
4) Какой тип всегда имеет параметр цикла?
5) Напишите полностью программу для нахождения суммы всех двузначных чисел (команды можно писать в строчку, разделяя их точкой с запятой).
. bmp – растровый рисунок, созданный в Paint
. jpg . gif – более совершенные растровые граф.
форматы. Рис. в формате gif может быть
анимированным и прозрачным)
. cdr – векторный файл
.mpg3 – звуковой файл
.mpg 4, wma, awi – видео файл
.rar, .zip- Архивные файлы
По расширению Windows определяет картинку(пиктограмму) для отображения файла и программу
для его открытия. Поэтому расширение нельзя стирать или изменять.
Существует много различных значков для отображения файлов и папок. Каждому типу файлов на
компьютере соответствует 1 значок, что позволяет легко узнать тип файла. Традиционные значки
можно изменять, но лучше этого не делать – это затруднит поиск информации на компьютере. Также
следует помнить что «традиционные» значки немного изменяются в каждой следующей версии
операционной системы.
Объяснение:
1)
Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i:integer;
Begin
clrscr;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);
i:=100; {2 sposob}
while i<=999 do begin
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1;
end;
i:=100; {3 sposob}
repeat
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1
until i=999
end.
2)
Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];
writeln(v);
i:=100; {2 sposob}
v:=0;
while i<=999 do begin
if mas[i] mod 17=0 then v:=v+mas[i];;
i:=i+1;
end;
writeln(v);
i:=100; {3 sposob}
v:=0;
repeat
if mas[i] mod 17=0 then v:=v+mas[i];
i:=i+1
until i=999;
writeln(v);
end.