Ну же ребят, ну помогите
5-9 класс
|
вводится числа найти сумму этих чисел не превосходящую S
program zzz;
var a, s, s1 : integer;
begin
s:=0;
WRITELN ( ' Введите ограничение суммы, целое число' );
readln (s1);
WHILE s < s1 do
begin
writeln ( ' Введите целое число для сложения' );
readln(a);
s:= s+a;
end;
WRITELN ( 'Сумма введенных чисел достигла предела и равна ',s );
end.
Другие вопросы из категории
А ) база данных "Библиотека"
Б ) база данных "Студенты"
В ) файловая структура
Г ) глобальная сеть Интернет
Минимальный элемент A[3,4]=11
Максимальный элемент A[2,2]=89
Кумир!!!Полное решение!Заранее большое спасибо!! :3
продолжите каждый из рядов, вписав еще 4 числа.
Читайте также
мало
эти задания нужно сделать циклами while и for, т е чтобы получилось 12 программ
1. Составьте программу вычисления значения функции: y=7x^2+1/x^2-16
2. Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке возрастания.
3*. Составьте программу, определяющую вид треугольника по трем его сторонам A, B, C.
4. Составьте блок-схему алгоритма и программу вывода на экран всех трехзначных чисел, кратных 7.
5. Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 13.
6*. Составьте программу вывода на экран таблицы степеней 2ⁿ, где 0 ≤ n ≤ 10.
я вас просто умоляю, напишите, пожалуйста
где можно его найти или же дайте ссылку на этот фильм))
Массив содержит 20 случайных чисел из промежутка [1..37] Выводит на экран эдементы больше 11, но меньше 22 ПОжалуйста помогите)
объем? В мегабайтах
2. 179 Мбайт- перевести в биты
71 Мбайт - перевести в байты
3. Перевести в десятичную, двоичную, восьмеричную, шестнадцатеричную системы 147 180 210
отрицательных элементов нет, то сообщить об этом)
p.s. В паскале