Предмет: Информатика,
автор: Kowwi23
Сделайте пожалуйста задачи 7.6, 7,7
Блок схемой прошу
Приложения:
Ответы
Автор ответа:
0
// Программы на писаны на PascalABC.NET
// 7.6:
var
number: integer;
Begin
For number := 1000 to 9999 do
if ((number mod 133 = 125) and (number mod 134 = 111)) then
WriteLn(number);
End.
// Нашлось одно единственное число: 1987
___________________________
// 7.7
var
Sum, a, b, c, count: integer;
Begin
count := 0;
// Число 500 не проверяется, т.к. очевидно, что 5 + 0 + 0 != 15
For a := 1 to 4 do
For b := 0 to 9 do
For c := 0 to 9 do
begin
Sum := a + b + c;
if (15 = Sum) then
count := count + 1;
end;
WriteLn('Кол-во искомых чисел: ', count);
End.
// Кол-во искомых чисел: 26
Приложения:
Похожие вопросы
Предмет: История,
автор: tanyasudorchyk466
Предмет: Математика,
автор: vanyacoloskov
Предмет: Алгебра,
автор: vesnevskije
Предмет: Математика,
автор: анастасияШуленкова
Предмет: Обществознание,
автор: Дениска61