⇢ ВУ
Владимир Удовик
дано чотирьохзначне число а
В паскале
Скласти программу яка б обчислювала двi суми суму першоi I четвертоi цифри та саму другоi i третьоi цифри
Олег Павловский
program z;
var n,s,a,a1,k,i:integer;
b:array [1..100] of integer;
begin
writeln('Введите число');
readln(n);
a:=n; i:=1; k:=0;
while a<>0 do
begin
a1:=a mod 10;
b[i]:=a1;
k:=k+1;
a1:=a div 10;
a:=a1;
i:=i+1;
end;
writeln('Цифры числа');
for i:=1 to k do
write(b[i],' ');
s:=b[1]+b[k];
writeln('Суммы первой и последней цифры',s);
end.
АТ
Альтика Тк
и как понять этот набор букв?
Похожие вопросы