Uses crt;
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
1) смешанные
3)знаковые
5)прототип (еще можно называть "оригинал", но круче - прототип)) )
6)образные
7) модель
8)информационная модель
program fantscrin;
const n = 8;
var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:= random(11)+1;
for i:=1 to n do
write(a[i], ' ');
p:=1;
for i:=1 to n do
if (i mod 2 <> 0) then p:=p*a[i];
writeln('');
writeln('Произведение = ',p);
End.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (y,m,b):=ReadInteger3('Введите год, месяц и день:');
try
var d:=(new System.DateTime(y,m,b)).Date;
Writeln(d.AddDays(1).ToString[:11]);
except
Writeln('Вы ввели неверные данные')
end
end.
<u>Примеры</u>
Введите год, месяц и день: 2017 5 8
09.05.2017
Введите год, месяц и день: 2017 12 31
01.01.2018
Введите год, месяц и день: 2016 2 28
29.02.2016
Введите год, месяц и день: 2017 11 31
Вы ввели неверные данные
А что надо сделать?///////////////////////////////////////////////////////////////////////////////////////////////////////
