Помогите с написанием программ вПомогите с написанием программ в ПАСКАЛЕ1) Если аamp;gt;7,
Помогите с написанием программ в
Помогите с написанием программ в ПАСКАЛЕ
1) Если аgt;7, то отыскать сумму BC, по другому отыскать разность.
2) Найти квадрат числа, если оно положительное, но если отрицательное - куб.
3) Идет К-ая секунда суток. Напечатать сколько полных часов, минут и секунд прошло к данному моменту.
4) В магазине продается костюмная ткань. Ее стоимость В рублей за квадратный метр. Напишите программку, которая подсчитает и выведет на экран стоимость кусочка этой ткани, длиной Х метров и шириной 80 см.
Krivopalova Eva
Хоть-бы ты мне посодействовал, аноним, который на данный момент пишет что-то.
Мирослава Азжурова
4.program z;const sh=80;var a,b,i,s:integer;beginwriteln('Введите длину ткани'); read(a);writeln('Введите цена ткани за один м'); read(b);s:=a*sh;i:=s*b;writeln(i, 'руб');end.
2 ответа
Danil Demintievskij
Var x, y: real;
Begin
Writen('введите число х=');
Readln(x);
If xgt;0 then y:=x*x
Else y:=x*x*x;
Writeln ('ответ' , y);
End.
Begin
Writen('введите число х=');
Readln(x);
If xgt;0 then y:=x*x
Else y:=x*x*x;
Writeln ('ответ' , y);
End.
Попкова
Кира
Как дописать тут?
Валерия Руут
Просто пиши комментами. Усвою.
Степан Целовальнов
H:=
Hleborozhdov Valek
H:=s div 3600; min:=(s mod 3600) div 60; sec:=(s mod 3600) mod 60;
Камилла Неведничева
H часов,min минут, sec секунд
Мирослава Арсева
Sorrу поменяй s на k
Лилия Медюшко
Спасибо
Женя Чорный
Удачи!
Nikita Mamochka
1. program z;
var a,B,C,n:integer;
begin
writeln('Введите a,B,C'); read(a,B,C);
if agt;7 then n:=B+C
else
n:=B-C;
writeln(n);
end.
var a,B,C,n:integer;
begin
writeln('Введите a,B,C'); read(a,B,C);
if agt;7 then n:=B+C
else
n:=B-C;
writeln(n);
end.
Kirill Kozjura
Можешь другие сделать? Безотлагательно нужно просто. Я все свои баллы истратил.
Патина
Елена
2.program z;var a,b:integer;begin read(a);if a>0 then b:=sqr(a)elseb:=a*a*a;writeln(b);end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов