Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 02:02
1099
Написать задачи на языке 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
·
Хороший ответ
5 апреля 2023 02:02
Остались вопросы?
Еще вопросы по категории Информатика
Сколько раз выполняется цикл в фрагменте программы: a:=1; b:=1; While a+b < 8 do begin a:=a+1; b:= b+2 end....
SyntaxError unindent does not match any outer indentation level python Как решить эту проблему?...
Количество чётных элементов последовательности (Python 3) Последовательность состоит из натуральных чисел и завершается числом 0. Определите, сколько...
1) Что такое 3D- графика? Какие здесь есть измерения? 2) Какие программы для 2D- и 3D- графики вы знаете? 3) Что за программа SketchUp? Как ее запусти...
На рисунке — схема дорог, связывающих города А,Б,В,Г,Д,Е,Ж,И,К. По каждой дороге можно двигаться только в одном направлении, указанном стрелками. Скол...