Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
3 апреля 2023 02:02
908
Написать задачи на языке 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
Остались вопросы?
Еще вопросы по категории Информатика
Caps Lock - это клавиша: а) включения дополнительной клавиатуры; б) фиксации ввода заглавных букв; в) замены символов; г) вставки символов....
Дан фрагмент таблицы истинности выражения F:...
Программист Петя пишет сортировку методом выбора. Пока что он реализовал только фрагмент, в котором в списке ищется минимальный элемент, который затем...
Выберите графические форматы файлов: 1.BMP 2.GIF 3.TXT 4.JPEG 5.DOC 6.PDF 7.WMF 8.EPS 9.EXE 10.COM...
В табличных информационных моделях информация об объекте или процессе представляется в виде …...
Все предметы