4 года назад

Дан радиус окружности. Найти ее диаметр. (записать программу в Pascal ABC) . P.S. Заранее спасибо!

1 ответ:

0 0

Как сказал кто-то, действительно мощно:D
var
r,d:integer;
begin
writeln('введи значение радиуса ',r);
readln(r);
d:=r*2;
writeln('диаметр ',d);
end.

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

Помогите сделать информатику надо построить изображения буду очень благодарен!Срочно прошу завтра уже сдавать надо

Серж с Ивановки

(1; 1)
(1; 11)
(3; 13)
(11; 13)
(17; 15)
(17; 17)
(19; 15)
(21; 15)
(23; 13)
(23; 15)
(27; 13)
(25; 13)
(25; 15)
(27; 13)
(27; 11)
(24; 9)
(21; 9)
(17; 7)
(18; 1)
(13; 1)
(13; 5)
(6; 5)
(6; 1)
(1; 1)
(21; 13)

0 0

4 года назад

Найти количество решений системы логических уравнений (с обоснованием ответа)

Alexa2944

Рассмотрим первое уравнение:
x1→x2+x1→x3=1
x1→x2+x1=¬x1+x2+x1 =1 (тк ¬x1+x1=1)
1→x3=1
¬1+x3=1
0+x3=1
то есть решением первого уравнения являются:
x1 x2 x3
0 0 1
0 1 1
1 0 1
1 1 1 всего 4 решения

остальные уравнения не дадут дополнительных решений.
итого : 4 решения, а именно:
x1 x2 x3 x4 x5 x6 x7 x8 x9 x10
0 0 1 1 1 1 1 1 1 1
0 1 1 1 1 1 1 1 1 1
1 0 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
ответ 4

0 0

3 года назад

В этом фрагменте базы данных представлены сведения о родственных отношениях. На основании приведённых данных, сколько всего внук

Анжелика666

3 внука

Алгоритм решения:
Голик А.А. id 96

В столбце родителей ищем всех детей от id 96
Всего 2: 62, 82

Теперь в столбце родителей ищем всех детей от id 62, id 82
Всего 3: 25, 105, 38

Ответ: 3

0 0

4 года назад

Сколько байт памяти надо для записи шуточного высказывания Оскара Уайльда: "Я такой умный, что иногда не понимаю ни единого слов

владислав4354

В задаче не уточнили, в какой кодировке запись.
Если считать за 1 символ 1 байт, то получится 73 байта.
Если считать за 2 символ 2 байта, то 73*2=146 байт

0 0

4 года назад

Помогите,пожалуйста 9 чисел выбрасываются случайным образом из отрезка от - 2 до 10. Подсчитать сумму чисел > 2 и вывести на

Hitorio [14]

Const N = 9;
var a: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to N do begin
a[ i ] := random(12)-2;
write(a[i]:4);
if a[ i ] > 2 then sum := sum + a[ i ];
end;
writeln();writeln();
write(' Сумма всех чисел > 2: ', sum);
<span>end.</span>

0 0

5 лет назад