Задать вопрос!

Задать вопрос!

Все категории

4 года назад

14

Чему будет равно значение переменной с после выполнения следующих действий, если человек введет значение 5 цел с ввод с c:=c+1 c

:=c**2

Информатика

1 ответ:

Лидия254 года назад

0 0

c:=c+1 => c=6

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

Дан одномерный массив. Найти отношение произведения отрицательных элементов к произведению положительных

Владислав595 [287]

.............................

0 0

3 года назад

Составить и зафиксировать в форме блок-схемы алгоритм вычисления факториала числа.

hgtu81

Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>

0 0

3 года назад

По трем введенным с клавиатуры сторонам необходимо выяснить: 1 вариант (ПК №1) - могут ли эти стороны образовать треугольник; пр

Ксения лллл

Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.

Пример:
<span>a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
<span>N</span>
</span>

0 0

3 года назад

Написать программу по блок-схеме

Жандар [117]

<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
    if d=0 then begin
      var x:=-b/2/a;
      Writeln('Корень уравнения x=',x)
      end
    else begin
      var x1:=(-b-Sqrt(d))/2/a;
      var x2:=(-b+Sqrt(d))/2/a;
      Writeln('Корни уравнения: x1=',x1,', x2=',x2)
      end
end.

0 0

4 года назад

Прочитать ещё 2 ответа

типы слайдов...................

bykova-na [321]

================================================

0 0

4 года назад