using System;
namespace Application
{
class MainClass
{
public static void Main (string[] args)
{
int dvm = 0;
Console.WriteLine ("Введите номер месяца:");
int mec = Convert.ToInt32 (Console.ReadLine());
Console.WriteLine ("Введите день:");
int den = Convert.ToInt32 (Console.ReadLine());
if (mec > 0 && mec < 13 && den > 0 && den < 32) {
switch (mec) {
case 1:
dvm = 0;
break;
case 2:
dvm = 31;
break;
case 3:
dvm = 59;
break;
case 4:
dvm = 90;
break;
case 5:
dvm = 120;
break;
case 6:
dvm = 151;
break;
case 7:
dvm = 181;
break;
case 8:
dvm = 212;
break;
case 9:
dvm = 243;
break;
case 10:
dvm = 273;
break;
case 11:
dvm = 304;
break;
case 12:
dvm = 334;
break;
}
int dng = 365 - (dvm + den);
Console.WriteLine ("До нового года осталось " + dng + " дней");
Console.ReadLine ();
} else {
Console.WriteLine ("Ошибка");
Console.ReadLine ();
}
}
}
}
Var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
begin
t:=100-(b+k);
if(20*b+10*k+t=200) then
writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
end;
end.
Результат:
Быков 1 коров 9 телят 90
var
x,y:real;
begin
Write('Введите число: '); Read(x);
if x<=0 then y:=-3
else
if x<=1 then y:=x else y:=sqr(x);
Writeln('y=',y)
end.
Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.
