Подскажите пожалуйста!Program z1;var a, b, c, d, f: real;var x: integer;begina:=

Подскажите пожалуйста!
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 В этой строке что-то пропущено не могу осознать что.
Скажите пожалуйста!!!!!!!

Задать свой вопрос
Mihail Potolovskij
упрашиваю
Egor
оооочень необходимо!!!!
Диана
if f = (a+b+c+d) then write ('нет')
Мирослава Миханошвили
ошибочно задал условие. в данном случае: F будет всегда себе одинакова. Нужно сделать 'сопоставление' к примеру Для того чтобы произошло разделение на then и else => к примеру: если f =a+b+c+d то оператор> по другому оператор
Ваганичев Вадим
Что должна делать программа? А то без этого не понятно какое должно быть условие
1 ответ
К примеру данная задачка отвечает на вопрос - четная ли сумма чисел введенного 4 значного числа?

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт