1.
Самый высокий - Евгений. Самый низкий - Николай.
2.
У Ани белая. У Маши синяя. У Вари красная.
4.
У Яши флешка 8 гб.
У Алины в 2 раза больше т.е. 16 гб.
У Марата 4/3 от их суммы т.е. (16+8)/3*4=32 гб.
5.
1) арена
2) телевизор
Int n;
Console.WriteLine("Введите возраст");
n = Convert.ToInt32(Console.ReadLine());
switch (n)
case 1:
Console.WriteLine("{0} год", n);
case 2:
Console.WriteLine("{0} года", n);
И так дальше расписываешь, можешь немного сократить код и запихнуть цифры, где год или лет одинаковы.
Сами команды:
Опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
<u>Пример</u>
252 337 105
S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.