danielfokin
26.10.2020 21:11

Снаписанием программ в с написанием программ в паскале 1) если а> 7, то найти сумму bc, иначе найти разность. 2) определить квадрат числа, если оно положительное, но если отрицательное - куб. 3) идет к-ая секунда суток. напечатать сколько полных часов, минут и секунд к данному моменту. 4) в магазине продается костюмная ткань. ее цена в рублей за квадратный метр. напишите программу, которая подсчитает и выведет на экран стоимость куска этой ткани, длиной х метров и шириной 80 см.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
wolfbz
02.07.2020 12:04
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.
0,0(0 оценок)
Ответ:
dima1028
02.07.2020 12:04
Var x, y: real;
Begin
Writen('введите число х=');
Readln(x);
If x>0 then y:=x*x 
Else y:=x*x*x;
Writeln ('ответ' , y);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота