помогите решить.паскаль1)найти сумму целых двузначных чисел.
10-11 класс
|
2)найти произведение целых чисел от 3 до n
1) var a,b,s :real;
begin
readln(a,b);
s:=a+b;
write(s);
end.
2)несовсем понятно
var a,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=3*i;
write(a);
end; end.
Другие вопросы из категории
данных из файла в динамический массив структур. Напишите функцию поиска в динамическом массиве структур количества школьников, двенадцати лет, обучающихся в классах «Б».
Читайте также
1
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры.
1. Найти:
- сумму элементов, имеющих нечетное значение;
- вывести индексы тех элементов, значения которых больше заданного числа А.
2. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.