пользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное
5-9 класс
|
var a,b:integer;
Begin
read(a,b);
if ((a>b) and (a mod b = 0))
or ((b>a) and (b mod a = 0)) then writeln(a+b)
else writeln(a-b);
End.
Другие вопросы из категории
Читайте также
ввели ц числа определите большее или меньшее 25-ти их сумма
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
выведите на экран их сумму. Если все они нечетные и A>B>C, то определите и выведите значения наибольшего и наименьшего из чисел. Иначе, выведите числа без изменения. Фрагмент программы: if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S:=a+b+c; writeln('сумма равна ', S); end; if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then begin writeln('наибольшее число ', A); writeln('наименьшее число ', C); end else writeln('a= ',a,' b= ', b, ' c= ',c);