СРОЧНО!!!1)с клавиатуры вводятся два целых числа,вычесть в порядке возрастания все целые...

Question

СРОЧНО!!!
1)с клавиатуры вводятся два целых числа,вычесть в порядке возрастания все целые числа расположенные между А и В
2)найти сумму квадратов всех целых чисел от 1 до 20
3) посчитать сумму четных чисел в промежутке от 8 до 1000

Comments

ну помогите!!!!

Answer 1

Вот 1
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.