Ответы на вопросы
0 голосов
507 просмотров

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

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

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

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

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

от | 507 просмотров

1 Ответ

0 голосов
Лучший ответ

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

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.

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

от
Добро пожаловать на сайт Вопросов.Нет, где вы можете задавать вопросы и получать ответы от других участников сообщества.
136 вопросов
166 ответов
12 комментариев
489 пользователей