З новою. думкою і новими словами
Program P;
Var
a, n, i : Integer;
S : Integer;
Begin
S := 1;
Write('Enter a ');
ReadLn(a);
Write('Enter n ');
ReadLn(n);
for I:=1 to N do
S := S * a;
WriteLn('a ^ n = ', S);
ReadLn;
End.
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var L:=new List<(string,real)>;
// это не решение задачи, это ввод данных
Writeln('Введите в каждой строке фамилию, пробел, время');
var i:=1;
repeat
var s:=ReadlnString(i+': ');
if s[1]='*' then break;
var w:=s.ToWords;
L.Add(Rec(w[0],real.Parse(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)
№1
1001101₂ = 1 * 2⁶ + 1 * 2³ + 1 * 2² + 1 * 2⁰ = 77₁₀
342₇ = 3 * 7² +4 * 7¹ + 2 * 7⁰ = 177₁₀
A26₁₆ = 10 * 16² + 2 * 16¹ + 6 * 16⁰ = 2598₁₀
№2
36₁₀ = 100100₂
197₁₀ = 305₈
681₁₀ = 2A9₁₆
№3
100100110101₂ = 2357₁₀ = 4465₈
1011011₂ = 91₁₀ = 133₈
№4
100110100101₂ = 2469₁₀ = 3A5₁₆
11001111011001₂ = 13273₁₀ = 33d9₁₆
№5
245₈ = 165₁₀ = 10100101₂
573₈ = 379₁₀ = 101111011₂
№6
1BA7₁₆ = 7079₁₀ = 1101110100111₂
ACF₁₆ = 2767₁₀ = 101011001111₂
№7
B68₁₆ = 2920₁₀ = 5550₈
FE9₁₆ = 4073₁₀ = 7751₈
№8
655₈ = 429₁₀ = 1AD₁₆
743₈ = 783₁₀ = 1E3₁₆