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

Решите задачу по информатике 10 класс. Машина Поста, Только начертите ленту по каждому шагу, включая начальное и конечное состояние. Условие задачи в прикреплении.


Решите задачу по информатике 10 класс. Машина Поста, Только начертите ленту по каждому шагу, включая

👇
Открыть все ответы
Ответ:
#include <iostream>
#include <string>
#include <conio.h>
#include <Windows.h>
using namespace std;
void main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
char answer[3];
setlocale(0, "");
cout << "2+2=4 ?" << endl;
cin >> answer;
if ((answer[0] == 'Д') && (answer[1] == 'а'))
 cout << "Верно" << endl;
 else cout << "Не верно" << endl;
cout << "5+5=10 ?" << endl;
cin >> answer;
if ((answer[0] == 'Д') && (answer[1] == 'а'))
 cout << "Верно" << endl;
 else cout << "Не верно" << endl;
 _getch();
}

P.S в свойства консоли надо поменять  шрифт на "Consolas"
4,4(12 оценок)
Ответ:
батя160
батя160
25.07.2021
Var err, right, answer : integer;
BEGIN
err := 0; right := 0;
writeLn('Сейчас Вам будет предложен тест по сериалу "Кухня". ');
writeLn('К каждому вопросу два варианта ответа. ');
writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');
writeLn;
writeLn('Понравилась последняя серия Кухни?: ');
writeLn('1. Да');
writeLn('2. Очеень понравилась');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 1 then begin
WriteLn('Неправильно');
err := err + 1;
end
else begin
WriteLn('Правильно');
right:=right+1;
end;
writeLn;
writeLn('Жена Макса: ');
writeLn('1. Вика');
writeLn('2. Катя');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 1 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
writeLn;
writeLn('Любишь этот сериал?: ');
writeLn('1. Обожаю');
writeLn('2. Очееень :3');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
WriteLn('Правильных ответов: ', right);
WriteLn('Неправильных ответов: ', err);
END.
Я сделяль :3
4,5(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ