Помогите с написанием программ вПомогите с написанием программ в ПАСКАЛЕ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
Статьи
Информатика
Статьи
Последние вопросы
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Облако тегов