Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO
1) К прикладным программам относятся:
✔ Текстовые редакторы (подходят все варианты - они все взаимодействуют с пользователем)
✔ Графические редакторы
✔ Бухгалтерские программы
✔ Табличные процессоры
2) В игре "Поле чудес" загадали слово из 16 букв. Вы просите открыть вторую букву. Когда вам ее открыли, какое количество информации вы получили?
1 16 бит
2 1 байт
✔ 4 бит (2^4 = 16)
4 8 бит
3) У матери было четыре сына: Миша, Ваня, Толя, Гоша. Двое из них близнецы. Известно, что Толя старше Миши, который моложе Гоши. Толя моложе Вани, который старше Гоши. Кто из детей близнецы?
Из первого утверждения Толя > Миша и Гоша > Миша, из второго Ваня > Толя, Ваня > Гоша. Тогда Ваня > [Толя, Гоша] > Миша, Толя и Гоша - близнецы.
4) Какие из определений относятся к дисплейному процессору?
✔ составляющее видеокарты
2 электронное энергозависимое запоминающее устройство
3 устройство для ввода в компьютер изображения
✔ управляет работой дисплея
5) Что из нижеперичисленного можно отнести к информационным моделям?
✔ манекен
✔ карточка больного
✔ карта местности
✔ модель застройки городп
6) Какой символ необходимо разместить перед запросом в строке поиска в интернете, чтобы было обязательное присутствие всех слов в найденных документах?
1 & (это не указывается перед запросом)
✔ +
3 ! (это "не")
4 * (это замена любого слово в цитате
7) Ты работал в каталоге C:\DOOL\FORS1\DDD_Модель. Затем перешел на один уровень выше в дереве каталогов, спустился в подкаталог DDD_Рок и удалил из него файл coni.22. Назовите полное имя файла, который вы удалили.
Изначально были в C:\DOOL\FORS1\DDD_Модель, подняли на уровень выше C:\DOOL\FORS1, спустились в подкаталог C:\DOOL\FORS1\DDD_Рок и удалили файл C:\DOOL\FORS1\DDD_Рок\coni.22
К форматированию таблиц относится 1 5 6 8
Var a,b,k1,k2,s:integer;
<span>begin </span>
<span>s:=0; </span>
<span>k1:=0; </span>
<span>writeln('Введите начало и конец отрезка'); </span>
<span>read(a,b); </span>
<span>k2:=b-a+1; </span>
<span>repeat </span>
<span>if b<0 then break; </span>
<span>s:=s+b; </span>
<span>b:=b-1; </span>
<span>inc(k1); </span>
<span>until (b=-1) or (b=a-1); </span>
<span>writeln('Сумма всех целых положительных чисел на отрезке = ',s); </span>
<span>writeln('Количество отрицательных целых чисел = ', k2-k1); </span>
<span>end.</span>
Program Stoimost;
var a,b,s,c :integer;
begin
writeln('Введите стоимость за минуту разговора ');
read(b );
writeln('Введите количество минут ');
read(s);
writeln('Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье, то введите цифру 2, а если в другие дни, то 0 ');
read(a);
if a:=1 then
c:= b*s*0,7;
if a:=2 then
c:=b*s*0,65;
if a:=2 then
c:=b*s;
write(c);
end.
скорее всего не правильно, но попробуй
