Программирование Программа предлагает ввести банковские карты pin-код и проверяет, является ли он введен правильно. Ошибиться можно только 3 раза, после чего появляется предупреждение, что карта заблокирована (правильный pin-код, придумайте сами).

1)20m+40m=240

60m=240

m=240: 60

m=4

ответ: m=4

2)800k: 200=800

800k=800*200

800k=160000

k=160000: 800

k=200

ответ: k=200

3)(8x+2x)*8: 2=160

10х*8: 2=160

10х*8=160*2

10х*8=320

10х=320: 8

10х=40

х=40: 10

х=4

ответ: х=4

4)10+30t=20t+100

 

  не знаю

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1) program lineynoeuravnenie;
var a, b: integer; x: real;
begin
writeln ('Введите коэффициенты a и b');
readln (a, b);
x:=-b/a;
write ('Решите уравнение', x);
end.

2) program veschestvennoe;
var a, b, c: integer; d, x1, x2: real;
begin
writeln ('Введите коэффициент a, b, c');
readln (a, b, c);
if a=0 then
begin
x1:=-c/b;
write ('Одно решение', x1),
end;
d=b*b-4*a*c;
if d<0 then
write ('Корней нет');
if d=0 then
begin
x1:=-b/(2*a);
write ('Одно решение', x1);
end;
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write (x1,'',x2);
end;
end.