Паскаль
Даны 3 числа a, b, c. Если a кратно b, то найти сумму всех чисел, если не кратно, то произведение.
utochkins04
3
21.04.2020 15:10
20
Другие вопросы по теме Информатика
nikzyryanov02
13.03.2021 20:50
Паштет312
13.03.2021 20:48
bobbobbobgy1
13.03.2021 20:41
dgolovenko
13.03.2021 20:40
maruad1
13.02.2022 19:37
polina1165
16.04.2020 12:22
helppliz5
16.04.2020 12:22
lailashihaeva
16.04.2020 12:22
Популярные вопросы
- Утаишь , проверьте букву а. проверочное слово найдите : с...
2 - Вычисли кпд подвижного блока, если груз массой 40 кг был поднят на высоту 8 м, при...
3 - Звести до тригонометричної функції гострого кута sin 2005°...
1 - Откуда эти числа? десятичные вс=24*cos35°=24*0,5736~14 см ас=24*cos35°=24*0,8192~20...
1 - Решите уравнение : а)25х^2+60х+36=0 б)х^2+32х+256=0 в) 9x^2-42x+49=0...
3 - Информация о компьютерах напишите информацию о компе...
1 - Сделайте морфологический разбор слова поляна...
3 - Спит спокойно старый слон стоя спать умеет он обозначь ударение в словах...
2 - Решить ( по действием) двух посёлков навстречу друг другу выехали одновременно велосипедиста...
3 - Из полной бочки сначала вычерпали 1/3 всей воды затем 1/4 а затем еще 1/6 всю ли...
3
var a,b,c: integer;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
if (a mod b = 0) then
writeln('a кратно b. Сумма всех чисел: ',a+b+c)
else
writeln('a не кратно b. Произведение всех чисел: ',a*b*c);
end.