Информатика

Информатика, опубликовано 2018-08-22 18:25:44

Исправьте программу пожалуйста (lazarus) program Project1; var a,b,i,s2,s1,k:integer; begin writeln(a и b); readln(a,b); if (a0)and(b0)then; k:=a*b; i:=k; while i>0 do begin s1:=i mod a; s2:=i mod a; end; if s1=0 and s2=0 than; writeln(k=i); i:=i-1; end.

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:39

¬((x кратно 3)→(x кратно 9)) минимальное значение

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:32

Основные этапы развития компьютеров?

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:31

Вводится единственное трехзначное число. Выведите его минимальную цифру. Пример Ввод Вывод 123 1

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:22

Во время каникул весёлые человечки отправились путешествовать на разных видах транспорта. Незнайка проплыл 53 км на пароходе, проехал 64 км на поезде и пролетел 101 км на самолете. Поэт Цветик проплыл на пароходе 117 км и проехал на поезде 23 км. Торопыжка пролетел на самолете 112 км и проехал поездом 20 км. Доктор Медуница проехала на поезде 35 км и проплыла на пароходе 58 км. Какое расстояние преодолел каждый из человечков?

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:21

Есть два сосуда объемом 9 и 10 литров. За одно действие любой сосуд можно наполнить или опустошить. Кроме этого, за одно действие можно переливать воду из одного в другой до тех пор, пока первый сосуд не окажется пустым или второй - полным. Изначально оба сосуда пусты. За какое наименьшее количество действий можно получить в каком-нибудь сосуде 5 литров?

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:19

Сколько бит информации понадобиться для кодирования изображения размером 24 на 15 пикселей если изображение черно белое

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:18

Дано количество студентов. Ввести имена студентов и их год рождения. определить через сколько лет они получат право голоса или сделать ывод, чтоони имеют право голоса

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:18

Файл размером 1,5 КБ был передан за 40 секунд. Сколько времени потребуется для передачи фала размера 7,5 КБ

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:11

Книга содержит 147 страниц. На каждой странице 33 строк. В каждой строке 59 символов (включая пробелы). Найти информационный объём текста.Округлить до целых.

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:25:06

ПОМОГИТЕЕтекст обьемом 1032 бита распологается в оперативной памяти начиная с байта с номером 10. Каков будет адрес последнего байта который занят данным текстом?

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:59

Дима недавно сменил провайдера. Он не помнит какой конкретно у него тариф, но знает, что файл размером 450 Кб он передает за 38 секунд. Сколько полных Мб данных он передаст за 37 минут? В качестве ответа укажите одно целое число.

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:53

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

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:52

Определите минимальный объем памяти, требуемый для двоичного кодирования цветного рисунка размером 10*10, если каждая точка может иметь один из 256 оттенков.

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:47

Очень срочно надо (делфи 7) Разрабатываемая программа предназначена для вычеркивания из матрицы заданной строки и столбца. Всё через стринггрид, эдиты и кнопочки. Для наглядного примера, кидаю кнопочку удаления, объясните, где накосячила :с procedure TForm1.Button2Click(Sender: TObject); begin y := StrToInt(Edit3.Text); for y:=StringGrid1.Row+1 to StringGrid1.RowCount-1 do //Удаление строки for x:=0 to StringGrid1.ColCount-1 do StringGrid1.Cells[x,y-1]:=StringGrid1.Cells[x,y]; StringGrid1.RowCount:=StringGrid1.RowCount-1; x := StrToInt(Edit4.Text); for x:=StringGrid1.Col+1 to StringGrid1.ColCount-1 do //Удаление столбца for y:=0 to StringGrid1.RowCount-1 do StringGrid1.Cells[y,x-1]:=StringGrid1.Cells[y,x]; StringGrid1.ColCount:=StringGrid1.ColCount-1; end;

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:46

Украинське пресливья зашифрован TP VJDB YTVF YFHJLE

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:36

Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 – баллы, полученные на ЕГЭ. Напишите программу, которая подсчитывает и выводит средний балл учащихся, сдавших экзамен (получивших оценку более 20). числа вводятся рандомно (не с клавиатуры)

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:29

Приведите различные примеры процесса обработки информации

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:25

Верны ли следуующие равенства? а) 33 (4)=21 (7) б) 33(8)=21(4)

Есть ответ

Ответ

Информатика, опубликовано 2018-08-22 18:24:16

Устройство компьютера к которому крепятся другие устройства

Есть ответ

Ответ