Напиши значення змінної S, якого вона набуде після виконання таких операторів:
1)s:=4; i:=1;
repeat s:=s+1/i; i:= i-1 until i<=1;
2)s:=2; i:=1;
repeat s:=s+1/(i+1); i:=i+3 until i>=5;
3) s:=1; i:=1;
repeat i:=i+1; s:=s+i until i>3
БУДЬ ЛАСКА, ДУЖЕ ТРЕБА♥️

Question

Информатика: Напиши значення змінної S, якого вона набуде після виконання таких операторів: 1)s:=4; i:=1; repeat s:=s+1/i; i:= i-1 until i =1; 2)s:=2; i:=1; repeat s:=s+1/(i+1); i:=i+3 until i =5; 3) s:=1; i:=1; repeat i:=i+1; s:=s+i until i 3 БУДЬ ЛАСКА, ДУЖЕ ТРЕБА♥️

Katylopy · Accepted Answer

// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

var n,k: real;
begin
writeln('Введите количество ящиков мыла завезенных на склад');
readln (n);
writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада');
readln (k);
n:=n-(10*k);
If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла')
else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла');
end.

MOGZ ответил