Написать задачи на языке Pascal:1. Возвести число в квадрат.
2. Даны три числа. Найти среднее арифметическое трех чисел.
3. Найти значение выражения y=8*x

(лучше чтобы это работало на Linux)

1 ответ

Посмотреть ответы

Megamozg

2205

Ответ: Компилятор PascalABC.NET
1) var a,v: integer;
begin
writeln('a'); readln(a); v:=a*a;
writeln(v); end.
2) var a,b,c, v: real;
begin
writeln('a'); readln(a);writeln('b'); readln(b);writeln('c'); readln(c);
v:=(a+b+c)/3;
writeln(v); end.
3)var v,y: integer;
begin
writeln('y'); readln(y); v:=8*y;
writeln(v); end.

Хороший ответ

4 апреля 2023 05:54

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Дан фрагмент программы. Определите результат выполнения программы A:='KLASS'; DELETE(A, 1,2); DELETE(A, 3,1); WROTELN(S);... 10.Найдите во Всемирной паутине информацию о количестве пользователей самых распространенных поисковых систем? 11. Даны запросы к поисковой системе:... Какая кнопка или кнопки позволит(лят) тебе осуществить отмену операции? CTRL с любой стрелкой CTRL + C CTRL + V CTRL + Z CTRL + A ALT+ F4... определите значение переменной а после исполнения следующего алгоритма . Порядок действий соответствует правилам арифметики с:=27 b:=100 -c*2 a:=b-c/9... Робот в левой верхней клетке квадрата 2×2. В квадрате есть одна горизонтальная стенка шириной в одну клетку, где именно — неизвестно. Роботу надо закр...