// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var k:=0;
var n:integer;
Writeln('Вводите натуральные числа; 0 - окончание ввода');
repeat
Read(n);
if (n>99) and (n<1000) and (n mod 4=0) then Inc(k)
until n=0;
Writeln(k)
end.
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
import random as r
array_ask=[["ты жив?","yes"],["5+5","10"],["5+10","15"]]
for i in range(len(array_ask)):
n=r.randint(0,len(array_ask)-1)
x=input(array_ask[n][0])
if x==array_ask[n][1]:
print(True)
else:
print (False)
Для любого натурального n верно что последняя цифра числа 6^n=6.
При n=0 получаем 6^0=1 и последняя цифра 1.
При n<0 задача в общем случае неразрешима.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(ReadInteger('n=')=0 ? '1' : '6')
end.