сервис вопросов и ответовПомогите с информатикой пожалуста, программирование в pascal
10-11 класс|
|
Прикрепленные изображения
Kaenprolлол
13 авг. 2013 г., 22:01:08 (10 лет назад)
Summertime788
13 авг. 2013 г., 23:23:14 (10 лет назад)
1)program gt;
var x,y:real;
begin
readln(x);
if(x<0)then y:=x+1 else y:=2*x;
writeln(y);
end.
2)
program gt;
var A,B:real;
begin
if(A=B)then writeln('A=B')else
if(A>b)then writeln(a*a)else writeln(b*b);
end.
3)
program gt;
var a,b,c,s:real;
begin
readln(a,b,c);
if(a>=b)and(a>=c)then s:=b+c else
if(b>=a)and(b>=c)then s:=a+c esle
s:=a+b;
writeln(s);
end.
Ответить
Другие вопросы из категории
Помогите, пожалуйста, составить развлетвляющуюся структуру sinx^2-a^3 y= 3a +√ cosx lnx+a если
х<1
1<=x<=4,
x>4
объясните пожалуйста, как решать систему счисления, переход с 10 (десятичная) с/с в 2 с/с (двоичную), в 8 с/с (восьмеричную), в 16 с/с
(шестнадцатеричную). Например число 1047 (10).
Читайте также
пожааааалуйста, помогите с информатикой )
а то я не умею этот pascal
помогите с информатикой,пожалуйста)
Нужно записать фрагмент программного кода,который получает слово романтика из слова информатика и выводит результат на экран
Вы находитесь на странице вопроса "Помогите с информатикой пожалуста, программирование в pascal", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.