Пользователь удален
Профи
(733)
15 лет назад
А что означает парное? =) Напиши, я серьезно могу помочь - хорошо разбираюсь
MrXdУченик (111)
15 лет назад
Program chislo;
var
x:real;
begin
writeln ('Ââåä³òü ÷èñëo');
readln (x);
if (x div 2)=0 then
writeln ('Chislo parnoe')
else
writeln ('Chislo ne parnoe');
end.
так правильно?
MrXdУченик (111)
15 лет назад
а такую задачку:
дано два числа - а и б.
если а>b тогда узнать их добуток, а если нет тогда их сумму?
DanXac
Мастер
(2480)
15 лет назад
если парное это типо 22 33 77 и т. д.
то: (я напишу тока задумку, расчитывая шо перевести на язык паскаля если че так обращся, переведу... )
кроче берем переменую а, это остаток от деления на 10,а Х присваеваем целую часть от деления на 10.
берем цикл ""repeat"" в него всуем переменую ну... пусть а1, так она остаток от деления на 10,а Х становится целой частью от деления на 10,
ща проверяем, если а1<>0 (то есть без остатка)
если а < > а1,то в (буленовский файл) присваевыем фэлс.
until эт если а1=0 иль в = фэлс.
ну тперь если не (в) тода выводищ-не парная
обратное выводищ- парное.
ну типо все.