Блок схему наверное составишь сам, если ты хоть чуть-чуть знаешь паскаль то ты поймешь
#include <iostream> //подключаем библиотеку iostream
using namespace std;
int main()
{
int a, s; //объявляем целочисленные переменные a и s
cin >> a; //вводим a
s = 0; //обнуляем сумму
while (a != 0) //цикл while, условие - a не равно нулю
{
s = s + a % 10; //остаток от деления числа на 10 - его последняя цифра, прибавляем ее к сумме
a = a / 10; // убираем последнюю цифру
}
if (s % 2 == 0) //условие - проверка на четность
{
cout << "summa chetnaya"; //выводим когда сумма четная
}
else
{
cout << "summa nechetnaya"; //выводим когда сумма нечетная
}
return 0;
}
Возьми последнюю цифру своего числа, добавь свой возраст, размер всего числа и добавь С Богом! Мб поможет.
Var
n, sum, i, a: integer;
begin
read(n);
sum = 0;
for i := 1 to n do
begin
read(a);
if (a mod 5 = 0) then
sum := sum + a;
end;
write(sum);
end.
Ответ:
program pr1;
var
i: Integer;
begin
for i := 1000 to 9999 do begin
if (i div 10) mod 10 <> (i div 100) mod 10 then
Write (i, ' ');
end;
ReadLn;
end.
- - - - - - - - - - - - - - - - - - - - -
program pr2;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.