Запишите инструкцию: Вычисляющую значение переменной R по формуле (X2+Y2):2

Знания

Информатика

1 ответ:

alutskikh4 года назад

0 0

Program adidos;
var X2,Y2,R:real;
begin
writeln('Введите X2 и Y2');
readln(X2);
readln(Y2);
R:=(X2+Y2)/2;
writeln('R=',R);
end.

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

Помогите написать программу на языке паскаль 1. вывести все числа от 1 до 10 с помощью while; 2. вывести все числа от 1 до 10 с

dbrf1234567891234... [49]

Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
 while a<>10 do
 begin
inc(a);
 write(a,' ');
end;
writeln('');
 //Вывод через repeat
repeat
 begin
 inc(b);
 write(b,' ');
 end;
until b=10;
end.

0 0

3 года назад

Пространственная дискретизация это процесс

Malinovka

Разделение изображения на участки, в пределах которых значения тона либо усредняются, либо представлены одним из значений участка; имеет место при сканировании

0 0

4 года назад

Скажите пожайлуста какой стиль, цвет и размер шрифта нужно использовать чтобы правильно написать Условное сопротивление грунта (

Григорий Николаев...

Ответ:

Предполагаю что это один из шаблонов WordArt

Объяснение:

с уплотнением в 1 пт или более стандартным для этого шаблона шрифтом кегель опционально

0 0

3 года назад

Объем видеопамяти составляет 62,5 Кбайт. Графический дисплей работает в режиме 320 х 400 пикселей. Какое максимальное количество

Marvin5197

62,5 Кбайт в биты: 62,5×1024×8 (бит)
Находим количество бит на одну точку ( i): 62,5×1024×8 /(640×400)=2, i=2 бита.
Находим количество цветов: N=22 =4 (цвета).

0 0

3 года назад

Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа . например , для числа 128 сум

nadia2020 [59]

Var
a,s:integer;
begin
readln(a);
s:=(a div 100) + ((a div 10) mod 10) + (a mod 10);
writeln(s);
end.

0 0

4 года назад