напешите прошу Паскаль

Напешите прошу Паскаль

Задать свой вопрос
1 ответ

program z1;


var


s,w:integer;


begin


writeln('Введите число зубов Кузьки');


readln(s);


writeln('Введите число зубов бабы Дуси');


readln(w);


if sgt;w then writeln('У Кузьки зубов больше') else writeln('У бабы Дуси зубов больше')


end.


Подробнее - на Znanija.com - znanija.com/task/30754761readmore

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт