Как-то так:
var a,b,c,s:integer;
begin write('введите первое число - ');readln(a);
write('введите второе число - ');readln(b);
write('введите третье число - ');readln(c);
if (a mod 5 = 0)
then s = s + 1;
if (b mod 5 = 0)
then s = s + 1;
if (c mod 5 = 0)
then s = s + 1;
write ('кол-во чисел, кратных 5-ти - ', s);
end.
Дан алгоритм в виде блок-схемы. Найди A,B,C,D, если изначально: A=4,B=8,C=7,D=15. Ответ: A= ,B= ,C= ,D= ПОМОГИТЕ! ОЧЕНЬ СРОЧНО!
Анна Князева [62]
0.
A = 4; B = 8; C = 7; D = 15.
1.
D = C = 7.
C = B = 8.
B = A = 4.
2.
A = 4. B = 4. C = 8. D = 7.
Ответ: A = 4. B = 4. C = 8. D = 7.
Коля тракторист, Саша комбайнёр, Петя - садовник.
Заполненные таблицы - в прилагаемых файлах.
Сложно понять, что нужно было сделать автору программы, но в любом случае сделано криво. Ввод и вывод организованы так, что выводимые значения сливаются с вводимыми, образуя непонятные комбинации.
Программа запрашивает некоторое значение "В", на превышение которого потом она реагирует один раз. Затем запрашивается количество чисел, которые надо ввести. Эти числа вводятся в цикле (почему это цикл while - непонятно, обычно подобные вещи делают в цикле for) и тут же выводится, т.е. программа повторяет введенное число. В случае, когда введенное число первый раз превышает "В", перед этим числом выводится значение "В". Именно для этого использована логическая переменная bol: после возникшего превышения она принимает значение false и отключает дальнейшую проверку на превышение.