М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
irinabelova200
irinabelova200
18.01.2022 13:10 •  Информатика

59 пунктов и лучшее решение будет,если будут пояснения №11. в зависимости от введённого пользователем возраста (от 1 до 99 лет) вывести сообщение о том. сколько пользователю лет. предусмотреть ситуацию, что может быть: «тебе 7 лет». «тебе 2 года». «тебе 23 года». «тебе 1 год» для любого числа. №12. пользователь вводит число и месяц не високосного года. вывести дату следующего дня. например: дано: 1 января. вывод: 2 января дано: 28 февраля. вывод: 1 марта дано: 31 декабря. вывод: 1 января №13. даны год. месяц и число рождения двух человек. определить, кто из них старше. примечание; предусмотреть ситуации: 1. люди родились в разные года 2. люди родились в один год. но разные месяцы 3. люди родились в один год. разные месяцы, но разные дни. 4. люди родились в один год. месяц и день. желательно с пояснениями,что к чему

👇
Ответ:

1)

 

var
a: integer;

begin
writeln('Сколько вам лет?');
readln(a);
if a mod 10 = 1 then writeln('Вам ', a, ' год');
if a > 20 then //Если наш возраст, который больше 20, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a < 10 then //Если наш возраст, который меньше 10, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a > 4 then //Если нам от 5 до 19 лет, то нам пишут "лет")
if a < 20 then writeln('Вам ', a, ' лет');
if a > 20 then //Если наш возраст, который больше =20, оканчивается на 0,5,6,7,8,9 то нам пишут "лет")
if (a mod 10 = 0) or (a mod 10 = 5) or (a mod 10 = 6) or (a mod 10 = 7) or (a mod 10 = 8) or (a mod 10 = 9)
then writeln('Вам ', a, ' лет');
end.

 

2)

 

var
a: integer;
d: string;

begin
write('Введите сегодняшнее число '); readln(a);
write('Введите название месяца в именительном падеже '); readln(d);

if d = 'январь' then if a = 31 then writeln('Завтра будет 1 февраля') else writeln('Завтра будет ', a + 1, ' января'); //январь
if d = 'февраль' then if a = 28 then writeln('Завтра будет 1 марта') else writeln('Завтра будет ', a + 1, ' февраля'); //февраль
if d = 'март' then if a = 31 then writeln('Завтра будет 1 апреля') else writeln('Завтра будет ', a + 1, ' марта'); //март
if d = 'апрель' then if a = 30 then writeln('Завтра будет 1 мая') else writeln('Завтра будет ', a + 1, ' апреля'); //апрель
if d = 'май' then if a = 31 then writeln('Завтра будет 1 июня') else writeln('Завтра будет ', a + 1, ' мая'); //май
if d = 'июнь' then if a = 30 then writeln('Завтра будет 1 июля') else writeln('Завтра будет ', a + 1, ' июня'); //июнь
if d = 'июль' then if a = 31 then writeln('Завтра будет 1 августа') else writeln('Завтра будет ', a + 1, ' июля'); //июль
if d = 'август' then if a = 31 then writeln('Завтра будет 1 сентября') else writeln('Завтра будет ', a + 1, ' августа'); //август
if d = 'сентябрь' then if a = 30 then writeln('Завтра будет 1 октября') else writeln('Завтра будет ', a + 1, ' сентября'); //сентябрь
if d = 'октябрь' then if a = 31 then writeln('Завтра будет 1 ноября') else writeln('Завтра будет ', a + 1, ' октября'); //октябрь
if d = 'ноябрь' then if a = 30 then writeln('Завтра будет 1 декабря') else writeln('Завтра будет ', a + 1, ' ноября'); //ноябрь
if d = 'декабрь' then if a = 31 then writeln('Завтра будет 1 января') else writeln('Завтра будет ', a + 1, ' декабря'); //декабрь
end.

 

3)

 

var
a,b,c,x,y,z:integer;

begin
writeln ('Введите число, месяц и год рождения певрого человека');
write ('Число - ');readln(a);
write ('Месяц - ');readln(b);
write ('Год - ');readln(c);
writeln ('Введите число, месяц и год рождения второго человека');
write ('Число - ');readln(x);
write ('Месяц - ');readln(y);
write ('Год - ');readln(z);
if c>z then writeln ('Второй человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b>y then writeln ('Второй человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a>x then writeln ('Второй человек старше');// проверка для второго человека окончена

if c<z then writeln ('Первый человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b<y then writeln ('Первый человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a<x then writeln ('Первый человек старше');//

if c=z then//проверка на равенство возрастов
if b=y then
if a=x then writeln('Люди имеют одинаковый возраст');
end.

4,8(49 оценок)
Открыть все ответы
Ответ:
тупой177
тупой177
18.01.2022
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->i<=n-j-1?i+1:0);
  a.Println(3)
end.

Пример
n= 13
  1  1  1  1  1  1  1  1  1  1  1  1  1
  2  2  2  2  2  2  2  2  2  2  2  2  0
  3  3  3  3  3  3  3  3  3  3  3  0  0
  4  4  4  4  4  4  4  4  4  4  0  0  0
  5  5  5  5  5  5  5  5  5  0  0  0  0
  6  6  6  6  6  6  6  6  0  0  0  0  0
  7  7  7  7  7  7  7  0  0  0  0  0  0
  8  8  8  8  8  8  0  0  0  0  0  0  0
  9  9  9  9  9  0  0  0  0  0  0  0  0
 10 10 10 10  0  0  0  0  0  0  0  0  0
 11 11 11  0  0  0  0  0  0  0  0  0  0
 12 12  0  0  0  0  0  0  0  0  0  0  0
 13  0  0  0  0  0  0  0  0  0  0  0  0

P.S. Ненавижу того, кто поставил тут этот шрифт - все съезжает!

Сформировать квадратную матрицу порядка n по заданному образцу 1 1 1 1 n-1 n-1 0 0 n 0 0 0
4,5(13 оценок)
Ответ:
thecrazynon1098
thecrazynon1098
18.01.2022
Const
  n = 10;

var
  i, j: integer;
  a: array[1..n, 1..n] of integer;

begin
  for i := 1 to n do
    for j := 1 to n do
      if i = j then a[i, i] := n - i + 1
      else a[i, j] := 0;
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i, j]:4);
    writeln
  end
end.

 10   0   0   0   0   0   0   0   0   0
   0   9   0   0   0   0   0   0   0   0
   0   0   8   0   0   0   0   0   0   0
   0   0   0   7   0   0   0   0   0   0
   0   0   0   0   6   0   0   0   0   0
   0   0   0   0   0   5   0   0   0   0
   0   0   0   0   0   0   4   0   0   0
   0   0   0   0   0   0   0   3   0   0
   0   0   0   0   0   0   0   0   2   0
   0   0   0   0   0   0   0   0   0   1
4,7(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ