Язык BASIC
DIM SUM AS INTEGER
CONST N = 30
DIM A(1 TO N) AS INTEGER
FOR I = 1 TO N
SUM = SUM + A(I)
NEXT I
PRINT SUM
END
Ответ:
Объяснение:
единственное через дискриминант если он равен нулю . Если он больше нуля. Если он меньше нуля D=b^2-4ac это формула
Начало
Проснуться
Умыться
Собраться
Выйти из дома
Прийти в школу
Прийти на первый урок
Прийти на второй урок
Прийти на третий урок
Прийти на четвертый урок
Выйти из школы
Прийти домой
Пообедать
Начать выполнять домашнее задание
Сесть за стол
Достать дневник, учебники, тетради
Прочитать задание в дневнике
Открыть учебник и тетрадь
Выполнить задание
Сложить школьные вещи в портфель
Пойти почистить зубы
Лечь спать
Конец
Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
<span>end.
Пример ввода:
45
34
56
67
<span>-2
Пример вывода:
123</span></span>