1. "Ввод-вывод числа". Эта программа вводит и выводит целое число.
program vvod; var a : longint; begin readln(a); writeln(a); end.
2. Два числа". Напишите программу для вычисления суммы двух целых чисел. Входные данные: два целых числа Выходные данные: сумма введенных чисел Пример ввода: 14 3 Пример вывода: 17 program sum2; var a,s : longint; begin s:=0; readln(a); s:=s+a; readln(a); s:=s+a; writeln(s); end.
3. "Три числа". Напишите программу для вычисления суммы трех целых чисел. Входные данные: три целых числа Выходные данные: сумма введенных чисел Пример ввода: 14 2 3 Пример вывода: 19
program sum3; var a,s : longint; begin s:=0; readln(a); s:=s+a; readln(a); s:=s+a; readln(a); s:=s+a; writeln(s); end.
4. "Десять чисел". Напишите программу для вычисления суммы десяти целых чисел. Входные данные: десять целых чисел Выходные данные: сумма введенных чисел Пример ввода: 1 2 3 4 5 6 7 8 9 10
Пример вывода: 55
program sum10; var a,s,i : longint; begin s:=0; for i:=1 to 10 do begin read(a); s:=s+a; end; writeln(s); end.
5. "Сумма n чисел". Напишите программу для вычисления суммы n целых чисел. Входные данные: n n целых чисел Выходные данные: сумма введенных чисел Пример ввода: 4 10 4 16 7 Пример вывода: 37
program sumN; var n,a,s,i : longint; begin s:=0; readln(n); for i:=1 to n do begin readln(a); s:=s+a; end; writeln(s); end.
6. "Сумма произведений". Даны n пар чисел. Напишите программу, которая определяет сумму произведений пар этих чисел. s=a1*b1+a2*b2+..+an*bn Входные данные: n a1 b1 a2 b2 ...
an bn Выходные данные: S Пример ввода: 3 2 8 1 3 0 -7 Пример вывода: 19
program sumNab; var n,a,b,s,i : longint; begin readln(n); s:=0; for i:=1 to n do begin readln(a,b); s:=s+a*b; end; writeln(s); end. |