PascalABC.NET 3.3
program journal;
var
sum, mark, count, n: integer;
check: boolean;
begin
sum := 0;
check := true;
count := 0;
writeln('Введите количество оценок: ');
readln(n);
if (n > 0) then begin
while (count <> n) do
begin
readln(mark);
inc(sum, mark);
if (mark < 4 ) then check := false;
inc(count);
if (count = n) then writeln('Ввод окончен!');
end;
end else writeln('Error!');
if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');
end.
A = [] # создаем массив
step = 3 # создаем переменную , которая является началом нашего ряда
while sum(A) < 15: # пока сумма нашего массива меньше 15 (sum - складывает все элементы нашего массива)
A.append(step) # мы добавляем в массив число
step +=1 # и увеличиваем число в ряду на 1
print(sum(A)) # после выполнения цикла выводим сумму массива
A = [] # создаем массив
step = 3 # создаем переменную , которая является началом нашего ряда
Num = int(input()) # просим у пользователя ввести число
while sum(A) < Num: # пока сумма нашего массива меньше (sum - складывает все элементы нашего массива)
A.append(step) # мы добавляем в массив число
step *= 2 # умножаем шаг ряда на 2
print(sum(A)) # после выполнения цикла выводим сумму масиива
Объяснение:
отнять от числа целую часть
целую часть взять с