Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Informatika (2 семестр) / 3 аттестация / grib
.pas program grib;
var a:integer;
begin
readln (a);
if (a mod 10=1) and (a<>11) then
writeln('Мы нашли в лесу ',a,' гриб')
else
begin
if (a mod 10>1) and (a mod 10<5) and (a<>12) and(a<>13) and(a<>14)then
writeln ('Мы нашли в лесу ',a,' гриба')
else
writeln ('Мы нашли в лесу ',a,' грибов');
end;
end.
var a:integer;
begin
readln (a);
if (a mod 10=1) and (a<>11) then
writeln('Мы нашли в лесу ',a,' гриб')
else
begin
if (a mod 10>1) and (a mod 10<5) and (a<>12) and(a<>13) and(a<>14)then
writeln ('Мы нашли в лесу ',a,' гриба')
else
writeln ('Мы нашли в лесу ',a,' грибов');
end;
end.
Соседние файлы в папке 3 аттестация