30 ! нужно придумать про робота(желательно, чтобы там использовалась его возможность видеть, слышать). с интересным, но не сложным сюжетом, чтобы можно было проилюстрировать в паинте. заранее огромное
Жил был одинокий робот Ричард. Когда-то давным давно он сломался и перестал работать. И его выбросили на свалку где было очень много других роботов и разной техники. Всё роботы почему то его не принимали...он был одинок. Но через 2 года после того как его выбросили, он встретил свою вторую половинку и теперь они вместе.
C#: { double x = Convert.ToDouble(Console.ReadLine()); double y = Convert.ToDouble(Console.ReadLine());
if ( x > y) { x = x / 0,9; } else if (y > x) { y = y / 0,9; } else Console.WriteLine("Числа одинаковые \n"); Console.WriteLine("x = {0}, y = {1}" , x, y); }
надеюсь, что устроит более-менее понятно, можно разобраться
на паскале: begin var x, y: double; readln(x); readln(y);
if x > y then x := x div 0,9; else if y > x then y := y div 0,9; else writeln("числа одинаковые"); writeln("x = ", x, "y = ", y);
1) const n=10; var a:array[1..n] of integer; i,min,s:integer; begin for i:=1 to n do begin a[i]:=random(81)+10; write(a[i]:4); end; writeln; min:=a[1]; for i:=1 to n do begin if a[i]<min then min:=a[i]; s:=s+a[i]; end; writeln('min = ',min); writeln('s = ',s); end.
Пример: 54 58 67 78 58 79 54 78 44 60 min = 44 s = 630
2) const n=9; m=6; var a:array[1..n,1..m] of integer; i,j:integer; begin for i:=1 to n do for j:=1 to m do a[i,j]:=i; for i:=1 to n do begin for j:=1 to m do write(a[i,j]); writeln; end; end.
