Задать вопрос
24 марта, 03:44

напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо равно 50) и выводит на экран фамилии и имена тех, кто родилсяв день z месяца.

+4
Ответы (1)
  1. 24 марта, 06:12
    0
    type

    person=record

    fam:string;

    imya:string;

    day:integer;

    end;

    var

    a:array[1 ... 50] of person;

    i, n, z:integer;

    begin

    write ('n=') ; readln (n) ;

    for i:=1 to n do

    begin

    write ('fam-') ; readln (a[i]. fam) ;

    write ('imya-') ; readln (a[i]. imya) ;

    write ('day-') ; readln (a[i]. day) ;

    end;

    write ('z-') ; readln (z) ;

    for i:=1 to n do

    if a[i]. day=z then writeln (a[i]. fam, ' ', a[i]. imya) ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо равно 50) и выводит на экран фамилии и имена тех, кто ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Составьте задачу на Паскаль, используя диалог с пользователем. Компьютер выводит на экран: -Здравствуй, я компьютер, а тебя как зовут? Человек вводит с клавиатуры: -Коля Компьютер выводит на экран: -Очень приятно, Коля.
Ответы (1)
1) напишите программу, которая спрашивает целое число n и считает сумму целых чисел, Муму чётных чисел и сумму нечётных от 1 до n 2) напишите программу, которая спрашивает целые числа а и b и выводит на экран квадраты чисел от а до b 3) напишите
Ответы (1)
составить программу которая вводит с клавиатуры длину стороны квадрата вещественного типа и выводит на экран дисплея площадь квадрата.
Ответы (1)
доброго времени суток.) кто-нибудь может помочь? ибо я совсем не вывожу информатику. 1. Написать программу, которая вводит массив из N целых чисел и выводит на экран элементы с чётными номерами.
Ответы (1)
Даны следующие типы данных: type Data=record День: 1 ... 31; Месяц: 1 ... 12; Год : integer; end; Личность=record ФамилияИмя : string; ДатаРождения: Data; end; ЛистЛичностей=array [1 ...
Ответы (1)