Предмет: Информатика,
автор: невил
определите сумму четырехзначного числа в программме турбо паскаль
Ответы
Автор ответа:
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a,b,c,d,s1,s2,t:integer; k:boolean;
begin
clrscr;
write('Введите четырех значное число: '); readln(t);
a:=t div 1000;
b:=(t mod 1000) div 100;
c:=(t mod 100) div 10;
d:=t mod 10;
s1:=a+b;
s2:=c+d;
k:=s1=s2;
writeln(k);
readln
end.
Похожие вопросы
Предмет: Обществознание,
автор: Zenerog
Предмет: История,
автор: miroslavabarinova8
Предмет: Английский язык,
автор: solnecn
Предмет: Геометрия,
автор: Tusik97
Предмет: Алгебра,
автор: Ol22ga1996