Вопрос по информатике:
Помогите с написанием программ в
Помогите с написанием программ в ПАСКАЛЕ
1) Если а>7, то найти сумму BC, иначе найти разность.
2) Определить квадрат числа, если оно положительное, но если отрицательное - куб.
3) Идет К-ая секунда суток. Напечатать сколько полных часов, минут и секунд прошло к данному моменту.
4) В магазине продается костюмная ткань. Ее цена В рублей за квадратный метр. Напишите программу, которая подсчитает и выведет на экран стоимость куска этой ткани, длиной Х метров и шириной 80 см.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.10.2015 19:46
- Информатика
- remove_red_eye 10863
- thumb_up 39
Ответы и объяснения 2
1. program z;
var a,B,C,n:integer;
begin
writeln('Введите a,B,C'); read(a,B,C);
if a>7 then n:=B+C
else
n:=B-C;
writeln(n);
end.
- 11.10.2015 09:27
- thumb_up 30
Var x, y: real;
Begin
Writen('введите число х=');
Readln(x);
If x>0 then y:=x*x
Else y:=x*x*x;
Writeln ('ответ' , y);
End.
- 12.10.2015 11:51
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.