СРОЧНО!!! 1)с клавиатуры вводятся два целых числа,вычесть в порядке возрастания все целые числа расположенные между А и В 2)найти сумму квадратов всех целых чисел от 1 до 20 3) посчитать сумму четных чисел в промежутке от 8 до 1000
Answers & Comments
Lera2619
Вот 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.
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.