Решите ПОЖАЛУЙСТА 3,4,5 задание. Очень нужно до понедельника. Заранее СПАСИБО!!!). Created by vladmakarchuk80. informatika-ru

Решите ПОЖАЛУЙСТА 3,4,5 задание. Очень нужно до понедельника. Заранее СПАСИБО!!!...

vladmakarchuk80 @vladmakarchuk80

July 2022 1 4 Report

Решите ПОЖАЛУЙСТА 3,4,5 задание. Очень нужно до понедельника. Заранее СПАСИБО!!!)

Answers & Comments

petyaGavrikov

Verified answer

3.
var l:integer;
begin
write('L = '); readln(l);
writeln(l,' см = ',l div 100,' м ',l mod 100,' см');
end.

Пример:
L = 825
825 см = 8 м 25 см

4.
var a:integer;
begin
write('a = '); readln(a);
a:=abs(a);
writeln('Среднее арифметическое цифр = ',(a div 10 + a mod 10)/2:4:1);
end.

Пример:
a = 25
Среднее арифметическое цифр = 3.5

5.
var a,s:integer;
begin
write('a = '); readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('Сумма цифр = ',s);
end.

Пример:
a = 825
Сумма цифр = 15

1 votes Thanks 1

Answers & Comments

Verified answer

Решите пожалуйста 61 задачу на листке вот такого типа.Дано:| Решение: _____|Найт...

Решите пожалуйста 5,6,7,8,9. Очень нужно! Заранее СПАСИБО!!!)...

Решите пожалуйста на компьютере задания 5,6,9.Срочно нужно.Задание 9. В каждом у...

Решите пожалуйста. 4a+8-3-2a=23 Заранее СПАСИБО!!!)...

Дан равнобедренный треугольник ABC с основанием AC, у которого BC=8см. <A:<...

Сделайте пожалуйста в Pascal, очень нужно! Заранее СПАСИБО!!!...

Сделайте пожалуйста в Pascal чтобы кружки шли сначало вертикально и ещё одну про...

Решите 2,3,4пожалуйста. Заранее СПАСИБО!!!)...

Сделайте пожалуйста 4(а и б), срочно нужно! заранее СПАСИБО!...

Нужно определить силу упругости себя. Сделайте пожалуйста я не понимаю как. Ну е...

рекомендуемые вопросы

Helpful Links

Helpful Social