написать программ в 4 строки без использования циклов и функций, сама задача: Как-то раз Ашот продавал - id1410764020230103 от Пикантные 03.01.2023 10:21

Question

Информатика: написать программ в 4 строки без использования циклов и функций, сама задача: Как-то раз Ашот продавал арбузы. Но мюмзики(основные покупатели арбузов и такси-услуг) захотели не один арбуз, а несколько. Выяснилось, что каждый из n*k мюмзиков захотел по одинаковому количеству арбузов m. У Ашота было Z арбузов. Какое минимальное неотрицательное количество арбузов останется у Ашота после продажи m * n арбузов? k - любое натуральное число. Формат ввода В единственной строке входного файла через запятую,

Пикантные · Accepted Answer

Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end. Простой вариант(выводится ошибка если цифр больше или меньше трёх!):var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
endю

MOGZ ответил