Question

СРОЧНО!!!

1)С клавиатуры вводятся два целых числа,вычесть в порядке возрастания все целые числа расположенные между А и В

2)найти сумму квадратов всех целых чисел от 1 до 20

3)Посчитать сумму четных чисел в промежутке от 8 до 1000

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.

Answer 2

НАДЕЮСЬ ПРАВИЛЬНО

Answer 3

спасибо, большое!

Answer 4

очень помогли

Answer 5

можно зайти в Мой профиль, написать что-нибудь под другими моими вопрос и получите ещё балы, на них никто не отвечал

Answer 6

))