сервис вопросов и ответовПомогите с Паскалем !!!! Плиииз.
5-9 класс|
|
9, 11 , 12.
Прикрепленные изображения
Daria2002
30 дек. 2016 г., 10:41:25 (7 лет назад)
Anastasiyska
30 дек. 2016 г., 11:13:45 (7 лет назад)
var
x, y, z, min, max : integer;
begin
read (x, y);
if x > y then
begin
max := x;
min := y;
end
else
begin
max := y;
min := x;
end;
if x < 0 then z := max else z := min;
write (z);
end.
var
a, x, y, z : integer;
begin
read (x, y, z);
if (x >= y) and (x >= z) then a := x
else if (y >= x) and (y >= z) then a := y
else a := z;
write (a);
end.
var
x, y : integer;
begin
read (x, y);
write (x);
if x <= y then write (' ', y);
end.
эссия
30 дек. 2016 г., 13:01:13 (7 лет назад)
9.
var
x, y, z: byte;
begin
readln(x, y);
if x<0 then if x>y then z:=x else z:=y else if x<y then z:=x else z:=y;
write(z);
end.
11.
var
a, x, y, z: byte;
begin
readln(x, y, z);
if (x>y) and (x>z) then a:=x else if y>z then a:=y else a:=z;
write(a);
end.
12.
var
a, b: byte;
begin
readln(a, b);
if a>b then write(a) else write(a, ' ', b);
end.
Если будут ошибки, пиши в комментариях. Разберёмся.
Ответить
Другие вопросы из категории
ПОМОГИТЕ,ПОЖАЛУЙСТА!! СЕГОДНЯ НАДО!!
Turbo P.
Дан массив из 20 действительных чисел. Вычислить отдельно сумму положительных элементов массива, отдельно отрицательных.
Paskal.
Дана строка. Проверить правильность написания слов с ЖИ-ШИ. Если слово написано неправильно, то исправить его.
Читайте также
Добрый день,помогите с паскалем
Нужно размножить снежинку и чтобы она появлялась в рандомных местах
Uses GraphABC;
var y, i, x: integer;
begin
moveto(0,320);
lineto(2000,320);
Line(120,100,80,140);
Line(120,100,160,140);
Line(120,160,80,200);
Line(120,160,160,200);
Line(120,220,80,260);
Line(120,220,160,260);
Line(120,100,120,320);
Rectangle(260,180,400,320);
Line(260,180,340,100);
line(340,100,400,180);
Rectangle(300,220,340,260);
Line(300,240,340,240);
line(320,220,320,260);
Rectangle(300,280,340,320);
for i := 1 to 10 do begin
x := random (1024);
y := random (200);
line(440,60,480,100);
line(440,80,480,80);
line(480,60,440,100);
Line(460,60,460,100);
Rectangle(460,200,500,320);
Line(460,220,500,220);
Line(460,240,500,240);
Line(460,260,500,260);
Line(460,280,500,280);
Line(460,300,500,300);
Line(500,200,560,200);
line(560,200,640,320);
line(500,320,640,320);
Circle(760,280,40);
Circle(760,220,20);
Circle(760,190,10);
Line(500,120,540,120);
line(600,20,600,60);
Line(600,180,600,220);
Line(660,120,700,120);
Circle(600,120,40);
FloodFill(140,440,clSkyBlue);
FloodFill(160,380,clSkyBlue);
FloodFill(160,350,clSkyBlue);
FloodFill(320,200,clGray);
FloodFill(310,230,clYellow);
FloodFill(330,230,clYellow);
FloodFill(310,250,clYellow);
FloodFill(330,250,clYellow);
FloodFill(302,20,clSilver);
FloodFill(600,140,clYellow);
FloodFill(320,300,clBrown);
FloodFill(320,160,clRed);
FloodFill(540,250,clTeal);
FloodFill(480,210,clMaroon);
FloodFill(480,230,clMaroon);
FloodFill(480,250,clMaroon);
FloodFill(480,270,clMaroon);
FloodFill(480,290,clMaroon);
FloodFill(480,310,clMaroon);
end;
end.
составьте программу для определения,что больше площадь круга радиусом a или площадь квадрата со стороной a-значения числа a вводятся с
клавиатуры(площадь круга вычисляется по формуле:S=PR^2)помогите пожалуйста:(
паскаль
Помогите пожалуйста!Паскаль ABC
Составьте программу, определяющую минимальное из всех введенных вами чисел (число 99 - конец цикла).
Запросите и введите с клавиатуры имя пользователя, имя его друга(подруги) и суть отношений между ними(дружба, любовь).
Напечатайте на экране:
<имя 1>+<имя 2>=<отношения>
помогите на паскале
Вы находитесь на странице вопроса "Помогите с Паскалем !!!! Плиииз.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.