1. Информатика
  2. Pascal! дана последовательность

Pascal! дана последовательность целых чисел признак окончаний которой 0.найдите сумму всех элементов последовательности.

kriskuziya0708 kriskuziya0708    2   14.07.2019 12:50    0

Ответы
Eleonora20061 Eleonora20061  13.08.2020 16:56
//Блок-схема во вложении.
var
 a,s:integer;
begin;
a:=1;
repeat
 readln(a);
 s:=s+a;
until a=0;
write(s);
end.
Pascal! дана последовательность целых чисел признак окончаний которой 0.найдите сумму всех элементов
ПОКАЗАТЬ ОТВЕТЫ
lizkelizaveta0 lizkelizaveta0  13.08.2020 16:56
Подробное решение, а точнее программа внутри файла
Pascal! дана последовательность целых чисел признак окончаний которой 0.найдите сумму всех элементов
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vasilevaka12 vasilevaka12  21.09.2019 23:40
Написать программу вычисляющую факториал введённого числа. c++ используя циклы....
Wow019282 Wow019282  21.09.2019 23:40
Program n_66; var x, max: real; i: integer; begin writeln ( введите число ); readln (max); for i: =1 to 9 do begin writeln (x); if x max then max: =x end writeln ( максимум...
BelkaDengiStol BelkaDengiStol  21.09.2019 23:40
Составить программу на си++ с клавиатуры ввести последовательность символов, не содержащую пробелов. вывести на экран эту последовательность в обратном порядке например:...
2005nastyabereza 2005nastyabereza  26.09.2019 22:01
Тест по информатике «qbasic» значение шага цикла для заданного фрагмента программы for i =2 to 10 print “qbasic” next i...
yan2005byp06ne2 yan2005byp06ne2  26.09.2019 22:01
Program isperfectnumber(input,output); var i, n, s: integer; begin write( n = ); readln(n); s : = 0; for i : = 1 to n do if n mod i = 0 then s : = s + i ; writeln if...
ruevtop ruevtop  26.09.2019 22:01
Решите на паскале на if case.если введённое число положительное, то вычесть из него 5, если равно нулю, то прибавить 20, во всех остальных случаях разделить на 6...
premium79 premium79  26.09.2019 22:01
Выпишите натуральные целые числа, принадлежащие следующим числовым промежукам: а)(1011*2; 10001*2) б)(768*9; 1028*9) в)(1001*2; 101011*2)...
Miheevf Miheevf  26.09.2019 22:01
Имеется ноутбук hp pavilion g6.в диспетчере устройств во вкладке видеоадаптеры стоят 2 стандартных vga графических адаптера,один работает а на втором восклицательный...
ЯтвойДругг ЯтвойДругг  26.09.2019 22:01
Создать электронную таблицу значений и построить график функции y = x в кубе дробь х в квадрате + 1 на отрезке (-3: 3) с шагом 0.5...
masha19902 masha19902  26.09.2019 22:10
Постройте блок схему. ввести 5 чисел и найти разность самого большего и самого меньшего из них...

Популярные вопросы