Жил-был Ослик и не было у него друзей, потому что он был психопатом, мизантропом и вообще сыном Ослицы. Долгими осенними вечерами ( а в жизни ослика была только осень) он читал книгу «Химия прочее» и мечтал кого- нибудь победить или просто что бы от него все отъ-сь (менты, участковый психиатр, соседи-слонята и соседи ежата). Однажды ослику приснился сон, что он вовсе не ослик, а просто проекция пятна на плоскости. В то утро ослик проснулся совершенно другим осликом. Мир был наполнен красками и пеньем птиц и солнце светило на маленький столик у кроватки ослика на котором мог бы стоять компьютер, если бы он у ослика был.
Var x, y, a :real; begin writeln('введите переменные: x, y и a'); readln(x, y, a); Y:=38*x+231; M=7*x+6*y+276; N=sqr(4*a)+2*x*a+8*y; writeln(x, y и a соответственно равны: ' x, y, a'); end.
упс... не заметил, что нужно в 3 разные программы...
1) var x, y :real; begin writeln('введите переменную x'); readln(x); Y:=38*x+231; writeln('y равен: ', y); end.
2) var x, y, m :real; begin writeln('введите переменную x и y'); readln(x,y); M:=7*x+6*y+276; writeln('m равен: ', m); end.
3) var x, y, a, n :real; begin writeln('введите переменные x, y, a'); readln(x, y, a); N=sqr(4*a)+2*x*a+8*y; writeln('N равен: ', n); end.
Жил-был Ослик и не было у него друзей, потому что он был психопатом, мизантропом и вообще сыном Ослицы. Долгими осенними вечерами ( а в жизни ослика была только осень) он читал книгу «Химия прочее» и мечтал кого- нибудь победить или просто что бы от него все отъ-сь (менты, участковый психиатр, соседи-слонята и соседи ежата). Однажды ослику приснился сон, что он вовсе не ослик, а просто проекция пятна на плоскости. В то утро ослик проснулся совершенно другим осликом. Мир был наполнен красками и пеньем птиц и солнце светило на маленький столик у кроватки ослика на котором мог бы стоять компьютер, если бы он у ослика был.
begin
writeln('введите переменные: x, y и a');
readln(x, y, a);
Y:=38*x+231;
M=7*x+6*y+276;
N=sqr(4*a)+2*x*a+8*y;
writeln(x, y и a соответственно равны: ' x, y, a');
end.
упс... не заметил, что нужно в 3 разные программы...
1)
var x, y :real;
begin
writeln('введите переменную x');
readln(x);
Y:=38*x+231;
writeln('y равен: ', y);
end.
2)
var x, y, m :real;
begin
writeln('введите переменную x и y');
readln(x,y);
M:=7*x+6*y+276;
writeln('m равен: ', m);
end.
3)
var x, y, a, n :real;
begin
writeln('введите переменные x, y, a');
readln(x, y, a);
N=sqr(4*a)+2*x*a+8*y;
writeln('N равен: ', n);
end.