Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
2 апреля 2023 05:54
452
Написать задачи на языке Pascal:1. Возвести число в квадрат.
2. Даны три числа. Найти среднее арифметическое трех чисел.
3. Найти значение выражения y=8*x
(лучше чтобы это работало на Linux)
1
ответ
Ответ: Компилятор 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.
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.
0
·
Хороший ответ
4 апреля 2023 05:54
Остались вопросы?
Еще вопросы по категории Информатика
Что происходит на этапе постановки задачи? Что является результатом этого этапа?...
После выполнения команды присваивания x:=x+y значение переменной х равно 3, а значение переменной у равно 5. Чему были равны значения переменных х и у...
Дан массив из 100 целых чисел и найти сумму элементов массива C++...
Вася задумал число от 1 до 100. Нужно отгадать это число за наименьшее число попыток, задавая Васе вопросы, на которые он отвечает <<да>>...
Помогите пожалуйста!!! Две минуты записи цифрового аудиофайла занимают на диске 5.1 Мб. Частота дискретизации -- 22050 Гц. Какова разрядность аудиоада...