Определить разрядность и знак числа из интервала [-100;100] число задать случайным образом. Pascal ABC
5-9 класс
|
var
n:integer;
b,c:string;
begin
n:=random(200)-100;
if n>0 then
b:='+' else b:='-';
if (abs(n)>10) then
c:='десятки';
if (abs(n)<10) then
c:='единицы';
writeln('число=',n,' знак ',b,'разрадность ',c);
end.
var x:byte;
razryad, chastnoe:integer;
а ABS(N) это у нас что? чет я подлагиваю сегодня)
абсолютная величина
типо чтобы отрицательные числа тоже проверял
Другие вопросы из категории
а)Буратино, Мальвина, Пьеро, Артемон
б)"12 месяцев", "Морозко", "Золушка", "Синяя борода"
в)Москва, Санкт-Петербург, Новосибирск
г)Енисей, Волга, Лена, Москва
д)Москва, Санкт-Петербург, Тула
2.Вспомните по одному объекту каждого из приведенных множеств и обозначьте его единичным именем в этом множестве:
а)Мореплаватель
б)Орфограмма
в)Формула
г)Былина
3.Назовите общие имена объектов, о которых сообщается в путеводителях. Назовите единичные имена объектов, о которых может рассказать человек после туристической поездки по России
4.Каким образом можно узнать признаки интересующих вас объектов?
5.Какие свойства можно привести при описании множества объектов? Можно ли для множества объектов привести значения величин? Приведите примеры.
6.Для каждого примера укажите объект, его свойство, определяющую свойство величину и её значение:
а)Рыжеволосый человек
б)Семикилограммовый арбуз
в)Фарфоровая чашка
г)Семнадцатидюймовый монитор
Перевести: 192 бит = ? байт 10Кбайт = ? байт 17 байт = ? бит 15360 байт = ? Кбайт 16384 Кбайт = ? Мбайт
из слова информатика надо придумать новое слова на казахском
Читайте также
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
program ZADACHA1;
var
a,b,c,d,d1,e:integer;
x,y,k,l:real;
begin
WRITELN('Цыбулак Максим');
READLN(a);
READLN(b);
c:=a+b;
e:=a*b;
d:=a-b;
k:=a/b;
d1:=b-a;
l:=b/a;
WRITELN('a+b=',c);
WRITELN('a-b=',d);
WRITELN('b-a=',d1);
WRITELN('a*b=',e);
WRITELN('a/b=',k);
WRITELN('b/a=',l);
m;=SQR(a);
n;=SQR(b);
o;=SQRT(a);
p;=SQRT(b);
WRITELN('квадрат числа',a,'=',m);
WRITELN('квадрат числа',b,'=',n);
WRITELN('корень числа',a,'=',o);
WRITELN('корень числа',b,'=',p);
end.
2. Опишите массив для хранения зарплаты за каждый месяц. Зарплату считать целым числом.
3.Опишите: a)Переменную В для массива, состоящую из 8 символов. b)Переменную MAS для массива, состоящего из 100 вещественных чисел. c)Переменную DAY для массива, состоящего из 30 целых чисел, причем номер первого элемента массива должен быть равен 5
.4. Пусть А : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям: a. Третий элемент массива сделать равным 5. b. Вывести на экран 7-й элемент массива. c. Ввести значение 1-го элемента массива. d. Вычислить сумму 1,2 и 3-го элементов массива.
5. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вычислить сумму всех элементов массива (используйте цикл).
6. Пусть C : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вывести на экран все элементы массива.
7. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Поменять местами первый и последний элементы массива.
8. Пусть В : array [1..20] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Заполнить массив случайными числами из интервала [-24;37].
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
Множесто В - простые числа из этого же диапазона.
Определить дополнение множества В до множества А.
Задачка на Паскале.