Program voz;
uses crt;
var a,b,c,d,e,f : integer;
begin
Write('Какая сейчас дата?(д м г)');
Read(a,b,c);
write('Введите дату вашего рождения (д м г)');
read(d,e,f);
if (b>=e) and (a>=d) then Writeln('Вам ',c-f,' лет') else writeln('Вам ',c-f-1,' лет');
end.
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Даны числа: 188, 193, 198, 203, 208, 213, 218, 223, 228. Впишите их в клетки квадрата так, чтобы по всем строкам, столбцам и дву
MyxaBezYxa [149]
Девять чисел, значит их надо вписать в квадрат три на три клетки.
В нём три строки.
И сумма в каждой строке одинаковая.
Если мы сложим все три строки, ты получим тройную такую сумму.
То есть, чтобы найти ответ, достаточно сложить все девять чисел и разделить сумму на три.
(188+193+198+203+208+213+218+223+228) / 3 = 1872 / 3 = 624