Новые вопросы

Информатика Архивный вопрос

Дано целое число А. Если значение А < 0, то необходимо удвоить его. Разрабо-тать схему алгоритма для решения этой задачи. Протестировать алгоритм для A=6, A=-10, A=0.

Нет комментариев

Ответы

Гость

Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
end.

Var a:longint;<br>begin<br>read(a);<br>if a>0 then<br>a:=

1 комментария:

фотографию не видно(

Похожие вопросы

Информатика

Каков результат выполнения приведённого ниже алгоритма для числа 10...

Ответить

Информатика

Срочно нужен код на Паскале. 1 и 2 задание....

Ответить

Информатика

Средняя скорость передачи данных по некоторому каналу связи равно 30720 бит/с Определите, сколько понадобится секунд, чтобы передать по этому каналу 80 страниц текста, каждая страница которого содержит в среднем 128 символов, а информационный вес одного символа равен 8 бит. Дано и решение....

Ответить

Информатика

Статья,набранная на компьютере,содержит 120 страниц,на каждой странице 80 строк.Иеформационный объём статьи составляет 150Кбайт.Определите количество символов в одной строке,считая,что каждый символ закодирован 16 битами....

Ответить

Информатика

Статья, набранная на компьютере,содержит 120 страниц ,на каждой странице 80 строк.Информационный объём статьи составляет 150Кбайт.Определите количество символов в одной строке,считая,что каждый символ закодирован 16 битами...

Ответить

Информатика

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a, b, t, N, P :integer;
Function F(x: integer):integer;
begin
F := 16*(9-x)*(9-x)+127;
end;
BEGIN
a := -25; b := 25;
P := 130;
N := 0;
for t := a to b do begin
if (F(t) > P) then begin
N := N+1;
end;...

Ответить

Список предметов

Математика

Литература

Русский язык

Геометрия

Английский язык

Биология

Другие предметы

Обществознание

Окружающий мир

География

Українська мова

Українська література

Қазақ тiлi

Беларуская мова

Информатика

Экономика

Французский язык

Немецкий язык

Психология