Предмет: Информатика,
автор: ИринкаМаринка
Определить, является ли билет с 4х значным числом счастливым. в паскале) пожалуйста))
Ответы
Автор ответа:
0
program bilet;
uses crt;
var a,b,c,d,s,n,k:real;
begin
write('vvedite chislo');
readln(k);
a:=k div 1000;
b:=k div 100 mod 10;
c:=k div 10 mod 100
d:=k mod 10;
s:=a+b;
n:=c+d;
if s=n then writeln('bilet schastlivy') else writeln('bilet ne schastlivy');
readln;
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: soldaikinmaksim
Предмет: Математика,
автор: bba2805033
Предмет: Химия,
автор: иолантаи
Предмет: Химия,
автор: mio44
Предмет: Алгебра,
автор: 7kelk