Определить кратно ли число 3 в pascal, если не кратно то умножить на 10, если кратно то разделить на 3
melenam08041974
2
21.08.2019 02:10
1
Другие вопросы по теме Информатика
gggtair2004
24.05.2019 09:20
lolSashalolo
24.05.2020 12:48
Lolikalkogolik
25.05.2020 12:33
yannappp1
19.03.2021 14:23
y4enik5
19.03.2021 14:23
aida2801
19.03.2021 14:23
Алина0811111
16.04.2020 17:54
1Лелька1
16.04.2020 17:54
mullakaeva85
16.04.2020 17:54
Популярные вопросы
- Підберіть дієслова з переносним значенням до слів: земля, рiчка, хмаринка, листя,...
2 - Докажите, что слово о полку игореве - эпическое произведение, указывая части...
1 - За 1 минут кямала рисует 5 листьев.а элнара 6. кямала нарисовала 30 листьев.сколько...
2 - План характеристики положения краснодарского края...
2 - Было 500 булок, продали ? (дробь) 3/5 от всех булок. сколько булок продали,...
3 - 7. 1) среди предложений 5-9 найдите такое(-ие), которое(-ые) связано(-ы) с предыдущим...
1 - #6 расшифруйте фамилию поэта, стихи которого повторял ваш четвероклассник по...
1 - Какое проверочное слово к слову извержение?...
2 - Fe (oh) 2+hci= fe (oh) 2=t ba (oh) 2+h2so4...
2 - Решить : 138*4-522: 2: 3, 801: 9*7+635: 5,754-(196+472): 4,912-(702-576): 9....
1
var a: integer;
begin
readln(a);
if(a mod 3=0) then writeln(round(a/3))
else writeln(a*10);
end.