Игрушка
красивая маленькая
радует веселит очаровывает
моя игрушка-(пиши свою игрушку)
игрушка
Program znanija3;
var i, number:integer;
begin
number:=0;
while i <> 10 do begin
Inc(number);
if (number mod 10) = 7 then begin
writeln(number);
Inc(i);
end;
end;
end.
P.S. Inc(number) = number:= number+1
Задание №4. Определить значение переменной S после выполнения следующих операторов:
1) S:=1; I:=1 For I:=2 to 2 do S:=S+1/I; S=1.5
2) S:=0; I:=1 For I:=2 to -5 do S:=S+1/I; S=0
3) S:=1; I:=1 For I:=2 downto 2 do S:=S+1/I; S=1.5
Задание №5. Определить сколько раз будет выполняться тело следующих операторов цикла.
1) K:=0; For i:=1 to K+3 do K:=K+1; Ответ: 3
2) K:=0; For i:=1 to 9 do K:=K+sqr(i); Ответ: 9.
3) K:=0; For i:=9 to 1 do K:=K+1; Ответ: 0
4) K:=0; For i:=1 to 1 do K:=K+1; Ответ: 1
1. Заголовок (кому, куда и прочие поля)
2. Тема письма
3. Тело (пишем текст или отправляем файлы)