CLS
INPUT
"a="; a
INPUT
"b="; b
S = (a +
b) / 2
G =
SQR(a ^ 2 + b ^ 2)
PRINT
"S="; S
<span>PRINT "G="; G
</span>
Ответ:
Объяснение:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушать порядок других оставшихся чисел
Program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
case a of
1..5:
s:=n*2;
6:
s:=10.4;
7:
s:=10.8;
end;
writeln(s);
end.
<span>
n-число минут
a-день недели
если case не проходили то можно сделать if
</span>program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
if(a<6)then s:=n*2;
if(a=6)then s:=10.4;
if(a=7)then s:=10.8;
writeln(s);
end.
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-40,40,14).Select(x->x/10).Tabulate(x->x*x+2).Println;
Range(-4,4).Tabulate(x->x*x+2).Println;
end.
<u>Результат</u>
(-4,18) (-2.6,8.76) (-1.2,3.44) (0.2,2.04) (1.6,4.56) (3,11)
(-4,18) (-3,11) (-2,6) (-1,3) (0,2) (1,3) (2,6) (3,11) (4,18)