Вопрос по информатике:
Помогите решить,не шарю в информатике.
нужно сделать таблицу и программу
Пожаловаться
- 22.11.2015 03:28
- Информатика
- remove_red_eye 4401
- thumb_up 33
Ответы и объяснения 1
PROGRAM A18;
var
a,b,c:integer;
x,y,z:integer;
BEGIN
write('Введите X='); readln(x);
write('Введите Y='); readln(y);
if (x=y) then begin
x := 0;
y := 0;
end else if (x
else
y:=0;
writeln('Число X:',x,' Число Y:',y);
writeln('');
write('Введите A='); readln(a);
write('Введите B='); readln(b);
write('Введите C='); readln(c);
if (a
end;
if (b
end;
if (a
end;
if (a
end;
writeln('A=', a, ' B=', b, ' C=', c);
writeln('');
x := a*b*c;
y := a+b+c;
write('(a*b*c) ',x);
if x
else
write('>');
write(y ,' (a+b+c)');
END.
var
a,b,c:integer;
x,y,z:integer;
BEGIN
write('Введите X='); readln(x);
write('Введите Y='); readln(y);
if (x=y) then begin
x := 0;
y := 0;
end else if (x
else
y:=0;
writeln('Число X:',x,' Число Y:',y);
writeln('');
write('Введите A='); readln(a);
write('Введите B='); readln(b);
write('Введите C='); readln(c);
if (a
end;
if (b
end;
if (a
end;
if (a
end;
writeln('A=', a, ' B=', b, ' C=', c);
writeln('');
x := a*b*c;
y := a+b+c;
write('(a*b*c) ',x);
if x
else
write('>');
write(y ,' (a+b+c)');
END.
Пожаловаться
- 23.11.2015 21:23
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы