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

4 года назад

Решите пожалуйста. Срочно.

Знания

Информатика

1 ответ:

Евгений Баровски4 года назад

0 0

1)2 2)3 3)1 4)3 вот как то так

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

Написать программу и сделать блок схему Вход:а Выход: квадраты всех чисел от 1 до а

Волшебник [6]

var a,i:integer;

begin

readln(a);

for i:=1 to a do writeln(i*i);

end.

0 0

4 года назад

Составьте таблицу истинности для (A & B) v (¬A & ¬B)?

Mephostophil

Таблица истинности находится во вложении.
Данное выражение приводится к операции эквивалентности a ≡ b

0 0

4 года назад

Задание №2. Условный оператор. Решить линейное уравнение ax = b.

осмод

program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.

0 0

1 год назад

Запишите число 12 345 в развернутой форме и в виде схемы Горнера.

Lessyana [3.1K]

Развернутая форма:
12345 = 1*10^4 + 2*20^3 + 3*10^2 + 4*10^1 + 5*10^0
Схема Горнера:
10*(10*(10*(10*1+2)+3)+4)+5

0 0

4 года назад

Оператор RANDOM. написать программу , выводящую разность двух случайных чисел из промежутка от -10 до +0 Использовать программу

Mad man pondo [10]

var n,i:integer;

begin

readln(n);

for i:=1 to n do write(random(11),' ');

end.

Пример:

5 2 9 5 7 2 10 0 1 6

var s,i:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+i;

write('s = ',s);

end.

Результат:

s = 55

0 0

2 года назад