Анонимно
Работа в паскаль
Составьте программу-диалог (используя условный оператор для проработки последней фразы)
- Привет, как тебя зовут?
- "Имя", ты будешь сдавать экзамен по информатике ? Если да, введи 1, если нет, введи 0.
- "Имя" ты будешь (не будешь) сдавать экзамен по информатике.
Ответ
Анонимно
var
s:string;
n:integer;
begin
Write('Привет, как тебя зовут? '); Readln(s);
Writeln(s,', ты будешь сдавать экзамен по информатике ?');
Write('Если да, введи 1, если нет, введи 0: '); Read(n);
if n=0 then Writeln(s,', ты не будешь сдавать экзамен по информатике.')
else Writeln(s,', ты будешь сдавать экзамен по информатике.')
end.
Пример
Привет, как тебя зовут? Zucoven
Zucoven, ты будешь сдавать экзамен по информатике ?
Если да, введи 1, если нет, введи 0: 1
Zucoven, ты будешь сдавать экзамен по информатике.
s:string;
n:integer;
begin
Write('Привет, как тебя зовут? '); Readln(s);
Writeln(s,', ты будешь сдавать экзамен по информатике ?');
Write('Если да, введи 1, если нет, введи 0: '); Read(n);
if n=0 then Writeln(s,', ты не будешь сдавать экзамен по информатике.')
else Writeln(s,', ты будешь сдавать экзамен по информатике.')
end.
Пример
Привет, как тебя зовут? Zucoven
Zucoven, ты будешь сдавать экзамен по информатике ?
Если да, введи 1, если нет, введи 0: 1
Zucoven, ты будешь сдавать экзамен по информатике.
Новые вопросы по Информатике
10 - 11 классы
3 минуты назад
5 - 9 классы
4 минуты назад
1 - 4 классы
5 минут назад
Студенческий
6 минут назад
10 - 11 классы
9 минут назад
Нужен ответ
10 - 11 классы
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад