Регистрация
karinarei2017
17.05.2021 20:59
Информатика
Есть ответ 👍

РЕБЯТА УМОЛЯЮ НУЖНО ОЧЕНЬ ОЧЕНЬ В 15-00 НУЖНО СДАТЬ!!! ЗАРАНЕЕ ОГРОМНОЕ КТО ОТКЛИКНИТСЯ!!!

15.1 На бесконечном поле имеются две перпендикулярные друг другу

стены, расположенные в виде буквы «Т», длины стен неизвестны.

Робот находится в клетке, расположенной непосредственно над

горизонтальной стеной. На рисунке указан один из возможных расположения стен и Робота (Робот обозначен буквой «Р»).

Напишите для Робота алгоритм, закрашивающий все клетки,

расположенные непосредственно с правой стороны вертикальной

стены. Робот должен закрасить только клетки, удовлетворяющие

данному условию. Например, для приведённого справа рисунка Робот

должен закрасить следующие клетки (см. рисунок).

При исполнении алгоритма Робот не должен разрушиться, выполнение

алгоритма должно завершиться. Конечное расположение Робота может

быть произвольным. Алгоритм должен решать задачу для любого

допустимого расположения стен и любого расположения и размера

прохода внутри стены. Алгоритм может быть выполнен в среде

формального исполнителя или записан в текстовом редакторе.

15.2 Напишите программу, которая в последовательности натуральных чисел определяет сумму всех

чисел, кратных 3 и оканчивающихся на 9. Программа получает на вход натуральные числа, количество

введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания

ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не

превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 и

оканчивающихся на 9.

Пример работы программы:

Входные данные Выходные данные

16

29

56

9

39

0

48​

109
291
Посмотреть ответы 1

Ответы на вопрос:

danillbiz
danillbiz
4,4(75 оценок)

var a,b,c: real;

begin

    readln(a,b);

    if(a > b) then

        begin

            writeln('a больше');

            c : = a;

            a : = a*b*3;

            b : = (b+c)/ 2;

            writeln('a = ',a,'   b = ',b);

        end;

if(b > a) then

        begin

            writeln('b больше');

            c : = b;

            b : = a*b*3;

            a : = (a+c)/ 2;

            writeln('a = ',a,'   b = ',b);

        end;

end.

Популярно: Информатика