Вопрос по информатике:
Подскажите пожалуйста!
Program z1;
var a, b, c, d, f: real;
var x: integer;
begin
a:= x div 1000;
d:= x div 10;
b:= (x div 100) mod 10;
c:= ( x mod 100) div 10;
f:= a+b+c+d;
if (f) then
write ('нет')
else
write('да');
end.
if (f) then В этой строчке что-то пропущено не могу понять что.
Скажите пожалуйста!!!!!!!
- 15.02.2018 17:26
- Информатика
- remove_red_eye 2480
- thumb_up 12
Ответы и объяснения 1
var
x, a, b, c, d, f: integer;
begin
readln(x);
a := x div 1000;
b := (x div 100) mod 10;
c := (x mod 100) div 10;
d := x mod 10;
f := a + b + c + d;
if f mod 2 = 0 then
write('нет')
else
write('да');
end.
- 16.02.2018 22:00
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.