Предмет: Другие предметы, автор: роман458

Дано целое число определить оканчивается ли оно цифрой 7
Даны два числа Замените меньшее из двух чисел их произведением а большей средним арифметическим этих чисел
дано двузначное число определить входит ли в него цифра B
Информатика срочно надо


Вегаvega: На каком языке?
роман458: на русском
Вегаvega: ахаха. Программном языке: паскаль, питон, си??
роман458: паскаль
роман458: поможешь

Ответы

Автор ответа: Вегаvega
1
var x: integer;
begin
read(x);
if x mod 10=7 then writeln('Yes');
if x mod 10 <>7 then writeln ('No');
end.


Вегаvega: read(B);
Вегаvega: if (a mod 10=B) or (a div 10=B) then begin
Вегаvega: writeln('Yes');
Вегаvega: end
роман458: спасибо
Вегаvega: else begin
Вегаvega: writeln('No');
Вегаvega: end;
Вегаvega: end.
Вегаvega: нез!)
Похожие вопросы
Предмет: Алгебра, автор: santretyakoff