1)Найти произведение двухзначных чисел, кратных 12.
2)Даны натуральные числа от 2222 до 4444. Найти среднее арифметическое чисел, в которых вторая цифра равна первой.
PASCAL напишите программу
Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
// 1
var (i, p) := (12, int64(1));
while i < 100 do
begin
p *= i;
i += 12
end;
Println('П =', p);
// 2
var (k, s) := (0, 0);
for var j := 2222 to 4444 do
if (j div 1000) = (j mod 10) then
begin
s += j;
k += 1
end;
Println('Среднее =', s / k)
end.
Приложения:
BobbyFresnel:
И среднее Вы получили именно по формуле среднего.
Не надо тут строить дурачка. Помощь - это когда простя подсказать что-то. А Вы попросили за Вас написать ПОЛНОЕ РЕШЕНИЕ. Которое хотите просто списать и спихнуть. Чувствуете, что не выйдет - написали, что по-другому хотите.
Ну Вы же все тут с одними хотелками, я что - сам не был школьником?
Смысл разводить демагогию на 5 листов, если вы не собираетесь помочь
Вы же не перестаете мне писать - я и отвечаю. Или Вы хотите за собой оставить последнее слово? Да не проблема!
польза есть одино вопрос?
Не понял
Я говорю, можете на сайт знакомств пойти и найти себе подружайку , а на сайте, где людям разъясняют или помогают в помощи дз , не разводят дискуссию под комментами .
А, типа, ты похамить решил? Ну продолжай сам с собой.
на бортаж
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад