Дана последовательность чисел. Выведите значение наибольшего элемента, кратного 7, а если в последовательности нет таких элементов - выведите слово «НЕТ». Последовательность вводится в формате: сначала неотрицательное число n – количество элементов в последовательности, затем на каждой строке – сами элементы, которые являются целыми числами.
Перед программой опишите кратко в комментариях основную идею решения.
Sample Input 1:
5
14
3
7
1
4
Sample Output 1:
14
Sample Input 2:
3
4
18
2
Sample Output 2:
НЕТ
uses crt;
type anketa=record fam:string[20];
im:string[12];
voz: 1..18;
at: real;
tel: integer;
end;
var i,n:integer; student: anketa; f:file of anketa;
begin
clrscr;
assign(f,'C:\PABCWork.NET\St.dat');
reset(f);
Write('Введите количество новых учащихся');
Readln(n);
For i:=1 to n do Write('Введите Фамилию учащегося:');
Readln(student.fam);
Write(f,student.fam,' ');
Write('Введите Имя учащегося:');
Readln(student.im);
Write(f,student.im,' ');
Write('Введите Возраст учащегося:');
Readln(student.voz);
Write(f,student.voz,' ');
Write('Введите Средний бал аттестата учащегося:');
Readln(student.at);
Write(f,student.at,' ');
Write('Введите Телефон учащегося:');
Readln(student.tel);
Writeln(f,student.tel);
end;
close(f);
readkey;
end.
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100>=1)then write('трёхзначное число')
else if (a div 10>=1)then write('двузначное число')
else writeln('однозначное число');
end.
2)var a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if (a<b)and (b<c) then
begin
a:=2*a;
b:=2*b;
c:=2*c;end
else
begin
a:=(-1)*a;
b:=(-1)*b;
c:=(-1)*c;
end;
writeln(a);
writeln(b);
writeln(c);
end.
3)var a,b,c:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if a=b then writeln('3')
else if b=c then writeln('1')
else writeln('2');
end.