Задать вопрос
19 мая, 15:30

С клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число. найди сумму квадратов однозначных чисел (написать программу на языке паслкаль)

+4
Ответы (1)
  1. 19 мая, 19:15
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «С клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число. найди сумму квадратов ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
С клавиатуры вводятся положительные числа до тех пор пока не будет введено отрицательное число. Составить программу, выводящую это число на экран.
Ответы (1)
1) C клавиатуры вводятся 10 чисел. Найти сумму тех из них, которые больше 10. 2) Найти произведение двузначных нечетных чисел. 3) С клавиатуры вводятся N чисел.
Ответы (1)
Составьте схему алгоритма программы, которая будет осуществлять ввод чисел до тех пор, пока не будет введено число 17. Как только будет введено число 17, программа должна вывести количество введенных чисел
Ответы (1)
Напишите программу, которая принимает с клавиатуры числа, пока не будет введено значение 999. Программа должна подсчитать, сколько значений было введено с клавиатуры (не считая значения 999) и вывести эту информацию на экран.
Ответы (1)
С клавиатуры вводятся числа до тех пор пока не введено число - 5. найти количество четных чисел из веденных
Ответы (1)