Var A: Real; B: Integer; в яких операторах правильно організованого введення значень змінних до текстового поля Edit1? A:=StrToFloat(Edit1.Text); Edit1.Text:= FloatToStr(B) Edit1.Text:= FloatToStr(A) Edit1.Text:= IntToStr(B)?
Решения должны работать на любом диалекте, хотя не проверял...
№1 program Task1; var a:integer; begin read(a); if a<0 then begin write(sqr(a)); end else if a>0 then begin write(a) end; end. №2 program Task2; var x,z:integer; begin read(x); if x>0 then begin z:=x*x;end; write(z); end.
Улучшенный вариант (работает под PascalABC.Net последних обновлений):
№1 begin var a:integer; read(a); if a<0 then begin write(sqr(a));end else if a>0 then begin write(a) end; end. №2 begin var x:integer; read(x); if x>0 then x*=x;write(x);//Результат будет выведен в любом случае, вне зависимости от того, x>0 или нет end.
namespace old4Test1
{
class Program
{
static void Main()
{
Console.WriteLine(IsFirstBiggerThanLast(123456));
Console.WriteLine(IsFirstBiggerThanLast(62514));
Console.WriteLine(IsFirstBiggerThanLast(1));
Console.WriteLine(IsFirstBiggerThanLast(12));
Console.WriteLine(IsFirstBiggerThanLast(105));
Console.ReadKey();
}
// Определите,какая цифра числа-первая или последняя больше. C#
private static bool IsFirstBiggerThanLast(int number)
{
Console.WriteLine(number);
var s = number.ToString();
return s[0] > s[s.Length - 1];
}
}
}