Найдите значение переменной s после исполнения таких операторов:
a) s:=0; i:=0
While i<5 Do
i:=i+1;
s:=s+100 div i

b) s:=0; i:=0
While i 1 Do
Begin s:=s+100 div i
i:=i-1
End

Question

Информатика: Найдите значение переменной s после исполнения таких операторов: a) s:=0; i:=0 While i 5 Do i:=i+1; s:=s+100 div i b) s:=0; i:=0 While i 1 Do Begin s:=s+100 div i i:=i-1 End

arsenlitvinov · Accepted Answer

С ЦИКЛАМИ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифм. прогресии:');
Readln(n);
For i:=1 to n do a:=a+d;
Writeln(n, ' член арифметической прогресии равен : ', a);
End.
БЕЗ ЦИКЛОВ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифметической прогресии: ');
Readln(n);
Writeln(' ответ: ', a+d*(n-1));
End.

Найдите значение переменной s после исполнения таких операторов: a) s:=0; i:=0 While i<5 Do i:=i+1; s:=s+100 div i b) s:=0; i:=0 While i 1 Do Begin s:=s+100 div i i:=i-1 End

MOGZ ответил

Найдите значение переменной s после исполнения таких операторов:
a) s:=0; i:=0
While i<5 Do
i:=i+1;
s:=s+100 div i

b) s:=0; i:=0
While i 1 Do
Begin s:=s+100 div i
i:=i-1
End