сервис вопросов и ответовprogram yura; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2=0 then writeln(x*x+(sqrt2)) else writeln(x*x*x+x) end.
5-9 класс|
|
В чём ошибка?
Irinkairinka01
07 янв. 2015 г., 4:18:25 (9 лет назад)
Timurkurmanaev1
07 янв. 2015 г., 6:58:48 (9 лет назад)
не очень понятно задание. на сколько могу судить ошибки нет.
Ответить
Другие вопросы из категории
Читайте также
Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе 1)Program z1; var a:integer; begin a:=10; while
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
Какое значение будет принемать значение Y после выполнения фрагментов программы: 1. var x,y: INTEGER; BEGIN y:=0; for x:=1
to 9 do
y:=y+x;
writeln(y=,y);
END.
2.var x,y: INTEGER;
BEGIN
y:=0;
for x:=10 downto 5 do
y:=y+1
writeln(y=,y);
END
3. var x,y: INTEGER;
BEGIN
y:=1;
x:=15;
while x>5 do
begin
x:=x-3;
y:=y*x;
end;
writeln(y=,y)
END.
4. var x,y: INTEGER;
begin
y:=1;
x:=10;
repeat
y:=y*x+x;
x:=x-2;
until x<0;
writeln(y=,y);
end.
пожалуйста напишите подробное решение и как получаются ответы
Напишите комментарии на каждую строку Program line; uses graphABC,CRT; Var x0,y0,x,y:Integer; Begin X0:=300;
y:=400;
x:=20;
Writeln('Введите координату точки Y0');
Readln(Y0);_________________________________________________________
Moveto(x0,y0);______________________________________________________
while x<610 Do
Begin
line(x0,y0,x,y);______________________________________________________
x:=x+10;___________________________________________________________
End;
End.
Укажите тип цикла используемое в программе _________________
Помогите пожалуйстаа!! Определите результат работы программы, написанной на языке Паскаль. 1) program a5 var i, m:
integer;
begin
m:= 0
for i: = 1 to 6 do
m: = m-6
writeln (m)
end.
2) program a6
var i, m: integer;
begin
m:= 0;
for i: = 3 to 7 do
m: = m-6+i;
writeln (m)
end.
program name; uses crt; var a,b: integer; begin writeln ('введите ширину'); readln(a); writeln ('введете
длину');
readln(b);
writeln ('пример=', 2*(a+b));
writeln ('площадь=', a*b);
end.
нужно подставить: ширину [15,20] длину [20,30] , a:= random (6)+15
rectangle (x1y1,x2y2)
Вы находитесь на странице вопроса "program yura; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2=0 then writeln(x*x+(sqrt2)) else writeln(x*x*x+x) end.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.