Язык: Pascal
5-9 класс
|
Ошибка где то в присвоение, т.к на выходе все время получаю 0.
Вопрос: В чем же ошибка?
----------------------------------------
Program test;
var a, b, c, d: integer;
begin
writeln ('Enter A');
read (a);
writeln ('Enter B');
read (b);
writeln ('Enter C');
read (c);
if (a<b) and (a<c) then a:=d;
if (b<a) and (b<c) then b:=d;
if (c<a) and (c<b) then c:=d;
writeln ('Complete');
writeln ('Your number is', d);
end.
d:=a; d:=b; d:=c;
а то у тебя d равно нулю
Другие вопросы из категории
S:=1(в квадрате)+2(в квадрате)+3(в квадрате)+...N(в квадрате).
Читайте также
элемента исходного массива, в полученном массиве вывести элементы стоящие на нечетных местах. Напишите, пожалуйста программу на языке Pascal
Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.
Составить программу на языке Pascal для решения следующей логической задачи.
По графику нужно написать задачу и решение, график прилагается.
Написать программу суммы двух целых чисел на языке Pascal