с клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число.найди сумму квадратов однозначных чисел
10-11 класс
|
(написать программу на языке паслкаль)
label m1;var a:array[1..100]of integer; i,b,n:integer; c:real;beginfor i:=1 to 100 dobeginread(a[i]);if a[i]>9 then goto m1;n:=i;end;m1:for i:=1to n dobeginb:=sqr(a[i]);writeln('Квадрат',' ',i,' ','числа=',' ',b);end;end.
Другие вопросы из категории
удаления элемента и после.
описывающие входы и соответствующие им выходы системы. Необходимо определить тип входной информации (числовая, текстовая, символьная) и правило ее преобразования.
Вход Х 7 ; 15 ; 6 ; 3 ; 33;
Вход У 14 ; 5 ; 1 ; 17 ; 22
Выход 15 ; 31 ; 7; 52 ; 67
F(x,y)=?
1) Номер линии запроса прерывания
2) Содержимое регистра флагов в момент прерывания
3) Адрес подпрограммы-обработчика этого прерывания
4) Тип прерывания
Из символов заданной величины А, стоящих на нечётном месте, сформировать новую величину В так, чтобы, если введено слово «окно» получилось «он», если «информатика» – то «ифраиа».
відомостей. Знайти назву книг даного автора, виданих з 1970 по 1990 рік. Впорядкувати відомості по першій літері прізвища автора. Замінити старий рік видання на 1992р., передбачаючи, що одна з книг перевидана.
Читайте также
последовательности кратных пяти
. Изменить его левую цифру на "9"
Ничего из вышеперечисленного.
Бесконечный цикл: Можно остановить путем ввода данных пользователем; Приводит к останову программы Можно использовать для создания короткой паузы в выполнении программы; Приводит к повторению некоторой части программы, пока не будет нажата клавиша “СТОП”.
Можно организовать цикл, повторяющийся до тех пор, пока не выполнится логическое условие с помощью операторов: FOR … NEXT IF… THEN GOTO Все вышеперечисленное.
Содержащаяся одна в другой циклические структуры называются: Вложенными; Простыми; Последовательными; Ничего из вышеперечисленного.
Какая из следующих строк может быть начальной строкой цикла FOR…NEXT: FOR A$=1 TO 15 FOR A=1 TO 15 FOR A=1 TO=15 FOR 4A=1 TO 15
Цикл FOR…NEXT приводит к повторению некоторой части программы, которая носит название: Тело цикла; Глубина цикла; Параметр цикла; Приращение.
Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.