4 года назад

Напишите программу которая из 3-ех значного числа находит * цифр

Знания

Информатика

1 ответ:

Инна Анатольевна4 года назад

0 0

П0 0 П1 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] ИП1 + С/П

Читайте также

помогите дорешать и поправить программу на паскалерешение биквадратного уравненияprogram bikkiv;varprocedure ur(var a,b,c,x1,x2)

КажмаВио

Var a,b,c,y1,y2,d,i:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
if d>0 then
begin
y1:=(-1*b+sqrt(d))/(2*a);
y2:=(-1*b-sqrt(d))/(2*a);
if y1>=0 then
begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
if y2>=0 then begin
writeln(sqrt(y2));
writeln(sqrt(y2)*-1);
end;
end else
if d=0 then
begin
y1:=(-1*b)/(2*a);
if y1>=0 then begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
end
else
writeln('Корней нет');
end.

0 0

4 года назад

Написать программу в Pascal по 2 способам repeat и while.Сделать блок-схему.ПОЖАЛУЙСТА РЕШИТЕ УМОЛЯЮ 99БАЛЛОВ

Ля-ля форсмажор [81]

program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
while (i<=15) do
begin
s := s + i*cos(i*x); 
i := i + 1;
end;
writeln('S= ', s:0:2);
end.а вот с repeat until

program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
repeat
s := s + i*cos(i*x); 
i := i + 1;
until i>15;
writeln('S= ', s:0:2);

0 0

4 года назад

ДЛЯ ПИТОНА Определите сумму всех элементов последовательности, завершающейся числом 0. Входные данные Вводится последовательност

Katyushau

A=[]
sum=0
while True:
   c=int(input())
   if c==0:
       break
   a.append(c)
for d in a:
   sum+=d
print(sum)

0 0

4 года назад

Подберите окончание для предложения. Графический редактор - это ... . а)устройство для создания и редактирования рисунков б) про

снайперГРУ [2]

б)программа для создания и редактирования рисунков

0 0

4 года назад

Определить значение переменной С после выполнения след. фрагмента программы(записанного на языке Паскаль). Ответ запишите в виде

Яна Барабаш

Так как A больше B, то подставляем в первую, после then ) c:=8+2
C:=10 , если бы условие не выполнялось, подставляли бы в то, что после else(иначе)

0 0

3 года назад