Надо написать две легеньких задачки на Паскале. На С знаю как делать, а с Паскалем не дружу ) Help Please !!!))) Заранее спасибо Задачка 1: Дано три числа. Найти и вывести на экран наименьшее число. Задачка 2: Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - виводить на екран второе.
Code: program three_digit; var pervoe_chislo,vtoroe_chislo,tretie_chislo:integer; begin pervoe_chislo:=5; vtoroe_chislo:=4; tretie_chislo:=3; writeln('zadanie 1'); write('naimenshee chislo = '); if (pervoe_chislo<vtoroe_chislo) and (pervoe_chislo<tretie_chislo) then write(pervoe_chislo) else if (vtoroe_chislo<pervoe_chislo) and (vtoroe_chislo<tretie_chislo) then write(vtoroe_chislo) else write(tretie_chislo); readln; pervoe_chislo:=5; vtoroe_chislo:=4; writeln('zadanie 2'); if (pervoe_chislo>vtoroe_chislo) then writeln(pervoe_chislo) else writeln(vtoroe_chislo); readln; end. Результат работы: Code: pervoe_chislo=5; vtoroe_chislo=4; tretie_chislo=3; zadanie 1 naimenshee chislo = 3 pervoe_chislo=5; vtoroe_chislo=4; zadanie 2 5 pervoe_chislo=5; vtoroe_chislo=2; tretie_chislo=3; zadanie 1 naimenshee chislo = 2 pervoe_chislo=2; vtoroe_chislo=4; zadanie 2 4 pervoe_chislo=5; vtoroe_chislo=2; tretie_chislo=1; zadanie 1 naimenshee chislo = 1 pervoe_chislo=3; vtoroe_chislo=4; zadanie 2 4
Еще так: PHP: Program One; var x,y,z: integer; begin write('Введите числа:'); read(x,y,z); if (x<=y) then if (x<=z) then write(x) else write(z) else if (y<=z) then write(y) else write(z); end. PHP: Program Two; var x,y: integer; begin write('Введите числа:'); read(x,y); if (x>y) then write(x) else write(y); end.
