СРОЧНО!!!1)Составьте программу сумму и разность целых чисел A и B.2)Составьте программу...

Question

СРОЧНО!!!1)Составьте программу сумму и разность целых чисел A и B.2)Составьте программу нахождения первой цифры двухзначного числа а.3) Составьте программу вычисление суммы двузначного числа а.4) Составьте программу вычисления суммы цифр трехзначного числа а. Это разные задания !!!!

Comments

пожалуйста помогите

Answer 1

1)
var a,b:real;
begin
readln(a,b);
writeln('А-Б=',a-b);
writeln(А+Б=',a+b);
end.
2)
var a:string;
begin
readln(a);
write(copy(a,0,1);
end.
3)
var a,s1,s2:string;
begin
readln(a);
s1:=copy(a,0,1);
s2:=copy(a,1,1);
write('Сумма цифр числа',a,'=',s1+s2);
end.
4)
var a,s1,s2,s3:string;
begin
readln(a);
s1:=copy(a,0,1);
s2:=copy(a,1,1);
s3:=copy(a,2,1);
write('Сумма цифр числа',a,'=',s1+s2+s3);
end.

Comments

По идее должно быть так)

---

Да, СПАСИБО!!!☺

---

если это ты считаешь ответ правильным, поставь лучший ответ

---

твой ответ нельзя поставить лучшим,не знаю почему?

---

Короче, я не знаю!!!

---

Может быть появится тогда поставлю!!!