СРОЧНО!!!
1)с клавиатуры вводятся два целых числа,вычесть в порядке возрастания все целые числа расположенные между А и В
2)найти сумму квадратов всех целых чисел от 1 до 20
3) посчитать сумму четных чисел в промежутке от 8 до 1000
1)с клавиатуры вводятся два целых числа,вычесть в порядке возрастания все целые числа расположенные между А и В
2)найти сумму квадратов всех целых чисел от 1 до 20
3) посчитать сумму четных чисел в промежутке от 8 до 1000
More Questions From This User See All
Answers & Comments
program P1;// ИМЯ ПРОГРАММЫ
var A, B, i,C: integer;//РАЗДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХ
begin//НАЧАЛО ПРОГРАММЫ
write('введите целое число А=');//ВЫВОД ЗАПРОСА НА ЭКРАН
readln(A);// СЧИТЫВАНИЕ ТЕКСТА, ВВОДИМОГО С КЛАВИАТУРЫ
write('введите целое число B=');//ВЫВОД ЗАПРОСА НА ЭКРАН
readln(B);// СЧИТЫВАНИЕ ТЕКСТА, ВВОДИМОГО С КЛАВИАТУРЫ
for i := A to B do write(i, ' '); //ВЫПИСЫВАЕМ ЧИСЛА ОТ МЕНЬШЕГО К БОЛЬШЕМУ ОТ А ДО В
C:= B - A + 1;//СЧИТЫВАЕМ КОЛИЧЕСТВО ЧИСЕЛ
writeln;
write( 'Количество чисел - ', c);
end.
вот 2
program P2;// ИМЯ ПРОГРАММЫ
var k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХ
begin//НАЧАЛО ПРОГРАММЫ
s:=0;
for k:=1 to 20 do
s:=s+sqr(k);
writeln('сумма = ',s);
readln
end.
ВОТ 3
program P3;// ИМЯ ПРОГРАММЫ
var k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХ
begin//НАЧАЛО ПРОГРАММЫ
s:=0;
for k:=8 to 1000 do
if k mod 2=0 then
s:=s+k;
writeln('сумма четных чисел = ',s);
readln
end.