( ) Индивидуальн
АНИЯ ВЫПОЛНИТЬ
ото отправить
решно
(для
большинства)
( )
Задание
Составьте програмогу, которая
запрашивает у пользователя ная, возраст,
номер телефона или адрес:
-ня («Как нас зовут?»)
-возраст («Сколько вам лет?»)
-номер телефона («Какой у вас номер
телефона?») или адрес («Каков ваш адрес
проживання?»)
В результате программы должны выйти
три строки . :
1. cHxca »
2. «Возраст»
3. «Номер телефона» или «Адрес»​

#include <iostream>
#include <cmath>

using namespace std;

int main() {
    setlocale(LC_ALL, "Russian");
    int
        WidthPage,
        HeightPage,

        SumSizeFields,
        SizeField,

        WidthCharacter,
        HeightCharacter,
        CountCharacters;
    float
        CountPages,
        SizePage,
        AreaCharacter;
       
    cout << "Введите ширину страницы: ";
    cin >> WidthPage;
    cout << "Введите высоту страницы: ";
    cin >> HeightPage;
    SizePage = WidthPage * HeightPage;

    cout << "Ввод ширины полей производится по очереди через Enter. Если поле отстутствует, введите 0.\n";
    int i = 0;
    SumSizeFields = 0;

    for (i = 0; i < 4; i++)
    {
        cout << "Введите ширину " << i+1 << " поля: ";
        cin >> SizeField;
        SumSizeFields = SumSizeFields + SizeField;
    }

    SizePage = SizePage - SumSizeFields;

    cout << "\n";
    cout << "Введите ширину символа: ";
    cin >> WidthCharacter;
    cout << "Введите высоту символа: ";
    cin >> HeightCharacter;
    cout << "Введите количество символов: ";
    cin >> CountCharacters;

    AreaCharacter = (WidthCharacter * HeightCharacter) * CountCharacters;

    CountPages = AreaCharacter / SizePage;

    cout << "Количество страниц в книге = " << ceil(CountPages) << endl;

    system("pause");
    return 0;
}

Const n =5;
type
  mas=array[1..n,1..n]of integer;
var
  a,b:mas;
  i,j,sum:integer;
begin
randomize;
sum:=0;
  for i:=1 to n do
      for j:=1 to n do
        a[i,j]:=Random(30);
  for i:=1 to n do
      for j:=1 to n do
        b[i,j]:=Random(30);
  writeln('Первый массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
  writeln;
  writeln('Второй массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
    writeln;
    end;
  writeln('Разность двух массивов A-B: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          sum:=sum+a[i,j]+b[i,j];
          write(a[i,j]-b[i,j]:4);
        end;
        writeln;
    end;
    writeln('Сумма элементов двух массивов: ',sum);
end.