Паскаль ABC.net версии 3.3.5

var
n: word;

begin
write('Введите номер дня недели: ');
readln(n);
case n of
    1: writeln('Понедельник');
    2: writeln('Вторник');
    3: writeln('Среда');
    4: writeln('Четверг');
    5: writeln('Пятница');
    6: writeln('Суббота');
    7: writeln('Воскресенье');
else writeln('Нет такого номера дня недели');
end;
end.

0 0

4 года назад

Помогите ПАСКАЛЬзадача 54 а и б

Romanova [14]

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadReal('a=');
var y:real;
if a<0 then y:=-a else y:=-a*a;
Writeln('f(a)=',y)
end.

Примеры
a= 3.7
f(a)=-13.69

a= -1.15
f(a)=1.15

begin
var a:=ReadReal('a=');
var y:real;
if a<-1 then y:=1/Sqr(a)
else if a<2 then y:=a*a
else y:=4;
Writeln('f(a)=',y)
end.

Примеры
a= -2
f(a)=0.25

a= 0.7
f(a)=0.49

a= 3.14
f(a)=4

0 0

4 года назад

В каких случаях среда применяется программная среда 3D-редактор ?

cermak1891

для разработки объемного образа (изображения), деталей объекта

0 0

4 года назад