Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
if (x mod 2 = 0) then writeln('true')
else writeln ('false');
end.
(в программе 2 таких чисел не существует)
Program n_2;
var x, y:integer;
begin
readln(x);
y:=x*x;
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
x:=x*x*x;
if (x=y) then writeln('true')
else writeln ('false');
end.
Program n_3;
var a, b, c:integer;
begin
read(a, b, c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln ('false');
end.
program chisla;
var a,b,c:real;
begin
write('Введите числа a,b и с через пробел:'); readln(a,b,c);
if (a<=b) and (b<=c) then begin
a:=exp(ln(a)*3);
b:=exp(ln(b)*3);
c:=exp(ln(c)*3);
end;
if (a>b) and (b>c) then begin
a:=-a;
b:=-b;
c:=-c;
end;
writeln(a,' ',b,' ',c);
end.
<em>;)</em>
Умение летать,умение...Быстро считать,и писать
1. Якщо від мене хочуть через модуль Turtle намалювати трикутник, то ось:
import=turtle
t=turtle.Pen ()
t.forward (70)
t.right (90)
t.forward (30)
t.right (90)
t.forward (70)
t.right (90)
t.forward (30)
Також, якщо потрібно усе стерти, але залишити черепашку на тому ж місці, застосуй команду: t.clear
2. Ось твій код:
a=int (input ("Скільки сантиметрів пляма на штанцях?") )
if a <2:
print ('Приймуть')
else:
a>2
print ('На жаль, не приймуть')
Ми застосовуємо тут змінну a, а також стрічку для того, щоб користувач ввів свої данні.
!Слідкуй за пробілами, коли ти пишеш if: , клацай enter, якщо працюєш в IDLE!
Var s,k: real;
i:integer;
Begin
Write('Введите стоимость 1 кг конфет: ');
Readln(s);
for i:=1 to 10 do begin
k+=1;
Writeln('Стоимость ', k*0.1, ' кг конфет = ', k*0.1*s);
end;
end.