Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>

0 0

1 год назад

Напишите программу на языке Паскаль: Даны целые числа K и N (N >0). Вывести N раз число K. Вычисление суммы чисел от 6 до 10.

Натали и В [1]

1) Программа выводит N раз число K:
var k,n,i: Integer;
begin
writeln('Введите k');
readln(k);
writeln('Введите n');
readln(n);
for i:=1 to n do writeln(k);
end.

2) Сумма чисел от 6 до 10:
var a,sum: Integer;
begin
for a:=6 to 10 do
begin
Inc(sum,a);
end;
writeln(sum);
end.

0 0

4 года назад

1 файл весит 1024 байта, а второй 2048 бит определить размер файлов в кб

Дмитрий Бегинин

Ответ:

1024 байта = 1 Кбайт

2048 бит = 0,25 Кбайт

Объяснение:

2048 бит = 2048 / 8 / 1024 = 0,25 Кбайт

0 0

3 года назад

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