Помогите пожалуйста:) Pascal

Знания

Информатика

1 ответ:

cxz4 года назад

0 0

Var x,k:integer;begink:=0;repeatwriteln('введите x');readln(x);if (x>1) then k:=k+1until x=0;write('k=',k);end.

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

Раскрась и заполни таблицу преобразуй данные из одного вида в другой (графические в текстовые).

troleg [106]

Раскрась и заполни таблицу преобразуй данные из одного вида в другой (графические в текстовые).

0 0

4 года назад

Запишите оператор, который увеличит значение переменной x в два раза

1984Дмитрий [299]

Х:=2*Х
ттттттттттт ттт

0 0

4 года назад

Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36<t&lt

Инна777

Var a: real;
begin
write ('Введите Вашу температуру: ');
read(a); //Вещественное число вводится через точку
if (a>=36) and (a<=37) then writeln ('Вы здоровы!') else writeln ('Вы больны!');
end.

0 0

4 года назад

Составить программу,позволяющую вставить после каждого символа исходной строки пробел и вывести полученную строку на экран

Виктория16

Program gt;
var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],' ');
end;
<span>end.</span>

0 0

4 года назад

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

Дам 50 баллов только побыстрей!!! 1. 256-цветный рисунок содержит 300 КБ памяти. Из скольких точек он состоит? 2 Видеопамять им

Lvovich

1.256=2**8=>на один пиксель выделяется 8 бит памяти.300 КБ=300*8*1024=2457600 бит.Общий общий объем изображения=Кол-во строк в изображении *Кол-во пикселей в строке*размер пикселя=>Кол-во пикселей=2457600:8=307200 пикселей.
2.4=2**=>на один пиксель выделяется 2 бита.Объем изображения=300*200*2=120000 бит.
16=2**4=>на один пиксель 4 бита.=>120000:4=30000 пикселей

0 0

4 года назад