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

Ответы

Vergoon 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.

ПОКАЗАТЬ ОТВЕТЫ

svetlanakuznec5 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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

PashaPlaytri 18.05.2020 12:10

Добавь звуковой эффект и для того чтобы?...

leragoroshkova 18.05.2020 12:22

Что делать если не можеш войти в школьные знания?...

BlackCat20101 28.03.2019 07:20

darinchiiik 27.05.2019 12:20

ukubasov 12.04.2021 15:34

killfa 12.04.2021 15:34

Tavvi 12.04.2021 15:34

alinakat98 12.04.2021 15:34

Pomogiteπ 12.04.2021 15:34

Radjabaliev 12.04.2021 15:34