Составить блок-схемы для задач: 1. Ввести четырехзначное число; 2. Ввести пять чисел

Question

1. Ввести четырехзначное число. 

Сложить первую цифру числа и третью. Сложить вторую и четвертую.  Вывести из двух полученных чисел наибольшее.  

2. Ввести пять чисел. 

Определить есть ли среди них числа кратные 7. Вывести эти числа. Если чисел кратных 7 нет, напечатать "кратных 7 нет".

Нарисуйте или составьте пожалуйста, СРОЧНО нужно!

Answer 1

По первому вопросу, как то так наверное:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

uses crt; var a:integer;     c1,c2,c3,c4:byte; begin repeat write('Введите натуральное четырехзначное a='); readln(a); until (a>999)and(a<10000); c1:=a div 1000; c2:=a div 100 mod 10; c3:=a div 10 mod 10; c4:=a mod 10; a:=1000*c3+100*c2+10*c1+c4; writeln('Новое число=',a); end.

По второму вопросу как то так наверное:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

uses crt; var a,i,n:integer; begin clrscr; writeln('Введите последовательность целых чисел, окончание ввода -1'); n:=0; i:=0; repeat readln(a); i:=i+1; if(a mod 7=0)and(n=0) then n:=i; until a=-1; if n=0 then write('Нет чисел, кратных 7') else writeln('Есть числа, кратные 7, номер первого из них=',n); readln end.

Вообще рекомендую более детально описывать задачу!