Найти наименьшее число из трех заданных

@Natik =) · Регистрация: 21.12.2009

Author24 — интернет-сервис помощи студентам

нужно написать 2 программки в паскалеАВС:

1задача : даны три числа. найти наименьшее из них.

2задача: дано трёхзначное число. в нём зачеркнули первую справа цифру и приписали её слева. вывести полученное число.

@Inadequate · 10.02.2010, 18:29

даны три числа. найти наименьшее из них

Pascal

function Min(a,b: integer):integer;
begin
  if a<b then
    Min:=a
  else
    Min:=b
end;
var
  a,b,c: integer;
begin
  ReadLn(a,b,c);
  WriteLn(Min(a,Min(b,c)));
  ReadLn
end.

@yanyk1n · 10.02.2010, 18:30

2)

Pascal

uses crt;
var n:integer;
begin
 clrscr;
 write('N-> ');
 readln(n);
 n:=100*(n mod 10)+n div 10;
 writeln(n);
 readln;
end.

@Inadequate · 10.02.2010, 18:31

дано трёхзначное число. в нём зачеркнули первую справа цифру и приписали её слева. вывести полученное число

Pascal

var
  N: integer;
  s: string;
begin
  ReadLn(N);
  Str(N,s);
  WriteLn(s[Length(s)]+Copy(s,1,Length(s)-1));
  ReadLn
end.

@Natik =) · 10.02.2010, 19:16 **[ТС]**

Так быстро )))) не ожидала)))) спасибо большое))))

Найти наименьшее число из трех заданных

Решение

Решение

@Natik =) 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 6
		1
	Найти наименьшее число из трех заданных 10.02.2010, 18:21. Показов 17716. Ответов 4 Метки нет (Все метки) нужно написать 2 программки в паскалеАВС: 1задача : даны три числа. найти наименьшее из них. 2задача: дано трёхзначное число. в нём зачеркнули первую справа цифру и приписали её слева. вывести полученное число. 0

@Natik =) 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 6
	10.02.2010, 19:16 [ТС]	5
	Так быстро )))) не ожидала)))) спасибо большое)))) 0

Опции темы