Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
Итерация 1:
dat 1 < 3
итерация 2: dat2 > 3, m = 1
итерация 3: dat3 > 3, m = 2
итерация 4: dat4 > 3, m = 3
итерация 5: dat5 > 3, m = 4
итерация 6: dat6 < 3, m = 4
итерация 7: dat7 < 3, m = 4
итерация 8: dat8 < 3, m = 4
итерация 9: dat9 > 3, m = 5
итерация 10: dat10 > 3, m = 6
Ответ: 6
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.
<u>Пример</u>
n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775
<u>Замечание:</u> массив индексирован от нуля.
<u><em>Microsoft qBASIC:</em></u>
DIM n AS LONG
CLS
INPUT "Введите число ", n
INPUT "Введите цифру для поиска ", d
flag = 0
DO WHILE n > 0 AND flag = 0
IF d = n MOD 10 THEN
PRINT "Цифра в числе есть"
flag = 1
ELSE
n = n / 10
END IF
LOOP
IF flag = 0 THEN PRINT "Цифры в числе нет"
END
<em><u>Тестовое решение:</u></em>
Введите число 5374012
Введите цифру для поиска 1
Цифра в числе есть
<span>//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)</span>
begin
var n:=ReadInteger('Введите n-> ');
for var i:=1 to n do
Writeln((1+i)/(2+i):0:2);
end.
Пример:
Введите n-> 5
0.67
0.75
0.80
0.83
0.86