Нужно составить программы. напишите кто-нибудь, нужно. 1)даны вещественные числа a,b,c. определите, существует ли треугольник со сторонами a,b,c? 2) дано целое положительное число. определите, оканчивается ли оно цифрой 7
{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?} var a,b,c:real; begin writeln('введите стороны треугольника'); readln(a, b, c); if (a+b>c) and (a+C>b) and (b+c>a) then writeln('треугольник существует') else writeln('треугольник не существует'); end.
{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7} var N:integer; begin writeln('введите число'); readln(N); if n mod 10= 7 then writeln('оканчивается цифрой 7') else writeln( 'не оканчивается цифрой 7'); end.
1)Назовите систему, в которой для записи любых чисел используется всего один символ? В) Унарная;
2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется: Г) PCI-шина.
3). Какой из тегов HTML рисует горизонтальную линию? hr
4) Какой из перечисленных языков программирования относится к низкоуровневым? Г) Assembler.
5)Файлы с расширением .cvs используют для хранения: Г) Изображений.
6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд. Пропорция 2000Кбайт / 30с * 12с = 800Кбайт А) 800 Кбайт;
7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления. А) 1111110;
8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки: А) Гиперссылка;
1)Назовите систему, в которой для записи любых чисел используется всего один символ? В) Унарная;
2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется: Г) PCI-шина.
3). Какой из тегов HTML рисует горизонтальную линию? hr
4) Какой из перечисленных языков программирования относится к низкоуровневым? Г) Assembler.
5)Файлы с расширением .cvs используют для хранения: Г) Изображений.
6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд. Пропорция 2000Кбайт / 30с * 12с = 800Кбайт А) 800 Кбайт;
7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления. А) 1111110;
8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки: А) Гиперссылка;
var a,b,c:real;
begin
writeln('введите стороны треугольника');
readln(a, b, c);
if (a+b>c) and (a+C>b) and (b+c>a) then writeln('треугольник существует')
else writeln('треугольник не существует');
end.
{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7}
var
N:integer;
begin
writeln('введите число');
readln(N);
if n mod 10= 7 then
writeln('оканчивается цифрой 7')
else writeln( 'не оканчивается цифрой 7');
end.