*Дано уравнение «3*5=?». Напишите программу которая будет проверять, если пользователь ввел правильный ответ то вывести на экран «Верно», иначе «Не верно». по жа лу йс та
Var r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real; begin read(x1,y1,x2,y2,x3,y3,x4,y4); if x1>x2 then r1:=(x1-x2)*(x1-x2) else r1:=(x2-x1)*(x2-x1); if y1>y2 then r1+=(y1-y2)*(y1-y2) else r1+=(y2-y1)*(y2-y1); if x3>x4 then r2:=(x3-x4)*(x3-x4) else r2:=(x4-x3)*(x4-x3); if y3>y4 then r2+=(y3-y4)*(y3-y4) else r2+=(y4-y3)*(y4-y3); if r1>r2 then writeln('Первый длинней второго') else if r1=r2 then writeln('Они равны') else writeln('Второй длинней первого'); end.
Var mas:array[1..100,1..100] of integer; N,M,D,N2,i,C,j,M2,k:integer; begin N:=0;D:=0;k:=0; write('Введите N = ');Readln(N); write('Введите M = ');Readln(M); For i:= 1 to M do begin M2:=1; For N2:=i downto 1 do begin if M2<=N then begin mas[M2,N2]:=k; k:=k+1; M2:=M2+1; end; end; end; //после побочной диагонали For D:=2 to N do begin M2:=D; For N2:=M downto 1 do begin IF (M2<=N) and (N2<=M) then begin mas[M2,N2]:=k; k:=k+1; M2:=M2+1; end; end; end; For i:=1 to N do begin Writeln(); for j:=1 to M do write(mas[i,j],' '); end; end.
if int(input()) == 3*5:
print("Верно")
else:
print("Неверно")