Предмет: Информатика,
автор: LizaVolkova5
Задача в Geany Задание 1. Вводится 2 числа. Первое увеличить на 10 раз, второе - в 10 раз и поменять их
местами
Задача 2. Найти значения функции y = x*x - 4*x +5
для x = 1, 3, 5. Вывести значения на
экран в виде:
x = 1; y = 2
x = 3; y = …
x = 5; y = …
Ответы
Автор ответа:
0
1)
uses crt;var x,y: integer; begin cls; write('x= '); readln(x); write('y= '); readln(y); writeln('x= ',y*10); writeln('y= ',x*10);end.
2)
uses crt;var y,x: real; begin cls; write('x = 1; '); writeln('y = ',1*1 - 4*1 +5); write('x = 3; '); writeln('y = ',3*3 - 4*3 +5); write('x = 5; '); writeln('y = ',5*5 - 4*5 +5);end.
uses crt;var x,y: integer; begin cls; write('x= '); readln(x); write('y= '); readln(y); writeln('x= ',y*10); writeln('y= ',x*10);end.
2)
uses crt;var y,x: real; begin cls; write('x = 1; '); writeln('y = ',1*1 - 4*1 +5); write('x = 3; '); writeln('y = ',3*3 - 4*3 +5); write('x = 5; '); writeln('y = ',5*5 - 4*5 +5);end.
Похожие вопросы
Предмет: Русский язык,
автор: bakytkali13
Предмет: Химия,
автор: sashakaranfil
Предмет: Математика,
автор: yarotsmaryna10
Предмет: Алгебра,
автор: homachik
Предмет: Геометрия,
автор: искусственная