1. Информатика
  2. Решите .сделаю лучшим ответом))

Решите .сделаю лучшим ответом)) дана последовательность целых чисел,заканчивающаяся нулем.написать программу,которая выводит последнее ненулевое число последовательности.

добропожаловать777 добропожаловать777    3   05.06.2019 08:20    0

Ответы
lolkek213 lolkek213  05.07.2020 21:47
Пишу на QBasic
CLS
DO
INRUT A
IF A<> 0 THEN
 M=A
END IF
LOOP UNTIL A=0
PRINT M
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ники2017 ники2017  16.06.2019 20:20
Раньше я могла легко справляться с , а сейчас не могу додуматься. юра,коля,ира,катя говорили о собаках. выяснилось,что троим из низ нравится овчарки, а четвёртому бульдоги....
елена1181 елена1181  16.06.2019 20:20
1. умение общаться с другими людьми с современных средств коммуникации относится к: а). когнитивному уровню информационной культуры человека б). поведенческому уровню информационной...
zulu51 zulu51  16.06.2019 20:20
Дискета объёмом 1440 кбайт весила 20г.сколько бы весил набор дискет, необхадимый для полного копирования информации с жёсткого диска объёмом 80 гбайт...
Дезолька Дезолька  16.06.2019 20:20
Заменить слова от 1 до 10 цифрами. например: один - 1 и т.д. составить программу...
Даяна131106 Даяна131106  16.06.2019 20:20
Выберите правильный ответ 1. при копировании изображение вставляется: a. в старый слой b. автоматически образуется новый слой и туда вставляется копируемое изображение 2....
QAZPLM11 QAZPLM11  16.06.2019 20:20
Впо не убыванию одномерном массиве чисел определить, есть ли заданное число w, в противном случае подсчитать количество чисел, меньших w, кроме того, вычислить произведение...
Golovina077 Golovina077  06.10.2019 14:10
Program vasiljev_hw6; var a: integer; b: integer; begin writeln(“васильев алексей 7а вариант 6”); writeln(“введите переменную a: ”); readln(a); writeln(“введите переменную...
Skrilleax95 Skrilleax95  06.10.2019 14:10
Найдите ошибкуvar m, i: byte; sr: real; a: array [1..n] of integer; const n=10; sr =0; beginfor i: = 1 to n do read (a[i]); for i: = 1 to n do sr: = sr + a[i]; sr: = sr/n;...
аня2939 аня2939  22.10.2020 16:27
СИСТЕМЫ СЧИСЛЕНИЯ 1 картинкаПеревести в десятичную систему счисления2 картинкаПеревести в восьмеричную систему счисления3 картинкаНайти числовое значение выражения в десятичной...
vaki3 vaki3  22.10.2020 16:27
Найди A,B,C,D, если изначально: A=5,B=7,C=4,D=18...

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