Итоговый контроль по информатике Вариант 2 1. Информацию, не зависящую от личного мнения или суждения, называют: 1. достоверной; 2. актуальной; 3. объективной; 4. полной; 5. понятной. 2. Тактильную информацию человек получает посредством: 1. специальных приборов; 2. термометра; 3. барометра; 4. органов осязания; 5. органов слуха. 3. К формальным языкам можно отнести: 1. английский язык; 2. язык программирования; 3. язык жестов; 4. русский язык; 5. китайский язык. 4.К какой форме представления информации относится прогноз погоды, переданный по радио? 1. текстовой 2. числовой 3. графической 4.мультимедийной 5. Какое из перечисленных слов можно зашифровать в виде кода $%#$? 1. марс 2. озон 3. такт 4. Реле 6. Видеофайлы имеют расширение: 1.exe, com, bat 2.rtf, doc, docx, txt 3.ppt, pps 4.avi, wmv, mpeg 7. Полное имя файла D: \8 класс \Сидоров А.Г.\практические работы \ практика №1. doc. В какой папке хра-нится файл практика №1. doc? 1. 8 класс 2. Сидоров А.Г. 3.практические работы 4.D: 8.Установите соответствие. Расширение Тип файла 1) .rtf 2) .bmp 3) .mp3 А) текстовый Б) звуковой В) графический 9. Текстовый редактор - программа, предназначенная для: 1. создания, редактирования и форматирования текстовой информации; 2. работы с изображениями в процессе создания игровых программ; 3. управление ресурсами ПК при создании документов; 4. автоматического перевода с символьных языков в машинные коды; 10. Заполнить пропуски числами: а) 5 Кбайт = байт = бит б)12288 бит= Кбайт = байт ответ : 1 2 3
Ответы
1)
var a,b,a1,b1:real;
var s,s1:real;
begin
WriteLn('Введите все катеты через пробел:');
Read(a,b,a1,b1);
s:=a/2*b;
s1:=a1/2*b1;
WriteLn(s);
WriteLn(s1);
if s = s1 then
WriteLn('Треугольники равновелики')
else if s>s1 then
WriteLn('Площадь первого треугольника больше на '+(s-s1))
else
WriteLn('Площадь второго треугольника больше на '+(s1-s));
end.
2)
var a,b:Integer;
var arr:array of char;
begin
arr:=ReadString().ToCharArray();
for var i:= 1 to 6 do
if(i<4) then
a+= strtoint(arr[i-1])
else
b+= strtoint(arr[i-1]);
if a=b then
WriteLn('Билет счастливый')
else
WriteLn('Билет не счастливый');
end.
var a,b,a1,b1:real;
var s,s1:real;
begin
WriteLn('Введите все катеты через пробел:');
Read(a,b,a1,b1);
s:=a/2*b;
s1:=a1/2*b1;
WriteLn(s);
WriteLn(s1);
if s = s1 then
WriteLn('Треугольники равновелики')
else if s>s1 then
WriteLn('Площадь первого треугольника больше на '+(s-s1))
else
WriteLn('Площадь второго треугольника больше на '+(s1-s));
end.
2)
var a,b:Integer;
var arr:array of char;
begin
arr:=ReadString().ToCharArray();
for var i:= 1 to 6 do
if(i<4) then
a+= strtoint(arr[i-1])
else
b+= strtoint(arr[i-1]);
if a=b then
WriteLn('Билет счастливый')
else
WriteLn('Билет не счастливый');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информатика 10 классмассивы python 3, 7Второе заданиезаранее
Автор: yurkovam-037
Составить кроссворд по теме программирование циклов
Автор: demakova1969
Эргономика ережесине сай келетин 2 ережени айтыныз
Автор: Валерьевич Николаевич1364
using namespace std;
int n, m, mat[1000][1000], avg[1000];
//вместо 1000 пиши максимальный размер матрицы по условию
int main() {
cin >> n >> m;
int s;
int cmax = 0;
for(int i = 0; i < n; ++i) {
s = 0;
for(int j = 0; j < m; ++j) {
cin >> mat[i][j];
s += mat[i][j];
if (mat[i][j] > cmax) cmax = mat[i][j];
}
avg[i] = s / m;
}
int cnt;
for(int i = 0; i < n; ++i) {
cnt = 0;
for(int j = 0; j < m; ++ j) {
if (mat[i][j] <= avg[i]) ++cnt;
}
cout << “Для строки номер » << i << « ответ равен: » << cnt;
}
cout << “максимальный положительный элемент: ” << cmax;
return 0;
}