Вопрос:

Помогите решить плз !!!!
В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел.
Заранее спасибо !!!
Написать нужно на Паскаль АВС

Информатика

admin 19.05.2023 40

Ответ учителя:

procedure sumd;
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.

файл input.txt: 11 15 21 13 -5
сумма: 60

Другие вопросы

Создать вопрос

# 2 не получается сделать программу в ABCпаскаль, в чем ошибка? uses crt; var a: array [1..20] of index; begin for i:= 1 to 15 do; readln(a[i]); for i:= 1 to 15 do; writeln(a[i]); for i:= 1 to 15 do; if a[i] mod 2 = 0 then S:=S+1; S:= S+a[i]; writeln(S); end.

# 3 Program Primer, var a, s: integer, begin S:= 0; readln(a); while a<>0 do begin if (a mod 4 = 0) and (a mod 10 = 4) then S:= S +a; readln(a); end; writeln(s); end. Какое число получится, если ввести ряд чисел 80, 12, 164, 104, 11,0? (помогите пожалуйста)

# 4 информатика, язык программирования питон. напишите программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает “Замечательно. Вы уже можете водить автомобиль”, а в противном случае – “К сожалению, водить автомобиль Вам рановато”

# 5 Срочно, решите, пожалуйста!!! Иван составляет пяти-буквенные слова из букв:и, в, а, н. Буквы в слове могут повторяться, использовать все буквы не обязательно, но букву «и» нужно Использовать хотя бы один раз. Сколько различных слов может составить Иван?

Вопрос:

Ответ учителя:

Похожие вопросы: