Question

Написать программу в Pascal: 1)Компьютер спрашивает: "Что сегодня нужно всем?" и если получает ответ ЭВМ, то пишет "Ну, конечно ЭВМ!", иначе "Это тоже нужно всем, но нужнее ЭВМ!"2)Написать программу, по которой компьютер приветствовал бы только своего хозяина, а при попытке ввести какое-либо другое имя спрашивал бы: "А где (например) Вася?" Нужно использовать операторы ветвления.

Answer 1

1)

var

 s:string;

begin

 writeln('Что сегодня нужно всем?');

 readln(s);

 if s = 'ЭВМ' then

   writeln('Ну, конечно ЭВМ!')

     else  writeln('Это тоже нужно всем, но нужнее ЭВМ!');

end.

2)

const

 n='Григорий';

var

 s:string[15];

begin

 writeln('*Хозяин компьютера: Григорий*');

 write('Введите ваше имя: '); readln (s);

 if s = n then writeln('Приветствую вас!')

   else writeln('А где ',n,'?');

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!

Answer 2

Программа на Pascal:

Программа 1: ```pascal program WhatIsNeeded;

var answer: string;

begin writeln('Что сегодня нужно всем?'); readln(answer); if (answer = 'ЭВМ') then writeln('Ну, конечно ЭВМ!') else writeln('Это тоже нужно всем, но нужнее ЭВМ!'); end. ```

Программа 2: ```pascal program Greeting;

var name: string;

begin writeln('Привет! Как тебя зовут?'); readln(name); if (name = 'Вася') then writeln('Привет, Вася!') else writeln('А где Вася?'); end. ```

В первой программе компьютер спрашивает, что сегодня нужно всем, и в зависимости от ответа выводит соответствующее сообщение. Во второй программе компьютер приветствует только своего хозяина, иначе спрашивает, где этот человек.