Помогите пожалуйсто буду очень благодарен! 1.Зад Даны 2 числа найти их сумму и...

Question

Помогите пожалуйсто буду очень благодарен!
1.Зад Даны 2 числа найти их сумму и произведение
2.Зад Дано 2 х значения число найти сумму его цифр
3.Зад Даны 2 числа найти их сред арифмитическое составить программу на языке паскаль

Comments

Если можно то можете обьянить где какой процесс происходит и тд

Answer 1

1-zadacha
var a,b:integer;
begin
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Writeln('Сумма=',a+b);
Writeln('Произведение=',a*b);
end.

2-zadacha
var a:integer;
writeln('Введите двухзачений число='); Readln(a);
Writeln('Сумма цифр=', (a mod 10)+(a div 10));
end.

3-zadacha
var a,b:integer;
begin
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Writeln('сред арифмитическое=',(a+b)/2);
end.

Comments

Большое спасибо!