Задача 1070 Алгоритмы ветвления С клавиатуры...

zhanna200877@ma

5 марта 2014 г. в 00:00

Алгоритмы ветвления
С клавиатуры вводится произвольное целое число. Если оно удовлетворяет заданным условиям, то уменьшить его на n, в противном случае – увеличить в m раз. Зарисовать блок–схему
Условие: Число делится на 10 без остатка или положительное
Значения n и m: n = 79 m =14

slava191

5 марта 2014 г. в 00:00

[[[ Pascal ]]]
n:=79;
m:=14;
readln(K);
if(k mod 10=0) then K:=K–n else K:=K·m
writeln(K);