Составить программку, определяющую, является ли данное утверждение подлинным:Двузначное число А

Составить программку, определяющую, является ли данное утверждение правильным:Двузначное число А начинается на 3

Составить программку, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превосходит 100

Задать свой вопрос
1 ответ
1)
var a:Integer;
begin 
Readln(a);
 if a div 10=3 then 
writeln('True');
readln;
end.

2) 
var a,b:Integer;
begin 
Readln(a,b); 
if ((alt;100) and (bgt;100)) or ((agt;100) and (blt;100)) then 
 Writeln('True'); 
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт