В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

БУДУ ОЧЕНЬ БЛАГОДАРНА!

1. Ниже приведена программа:

var s,k: integer;
begin
readln(s);
readln(t);
if (s < 1) and (t < 2)
then
writeln ('YES')
else
writeln ('NO')
end.
Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t):

(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).

Сколько было запусков, при которых программа напечатала «NO»? В качестве решения выпишите все пары запусков и напротив каждого укажите вывод: YES или NO. В ответе укажите количество.

2. Составьте программу, выводящую значение вещественной переменной x, равной значению выражения 2(a+b)/a^2,где a и b – целочисленные переменные, их значения вводятся с клавиатуры.

3. Целое положительное число вводится с клавиатуры. Нужно проверить является ли оно четным.

4. Напишите программу, которая вычисляет сумму n-первых целых положительных чисел S = 1 + 2 + 3 + … + n. Количество суммируемых чисел n должно вводиться пользователем во время работы программы.​

Показать ответ
Ответ:
вероника290305
вероника290305
24.09.2021 09:11

1)

var n,k: integer;

begin

readln(n);

if (n>0) and (n<10) then k:=1

else if (n>9) and (n<100) then k:=2

else k:=3;

write(k);

end.

2)

var a,b,c: integer;

D,x1,x2: real;

begin

readln(a,b,c);

D:=b*b-4*a*c;

if(D>0) then begin

x1:=((-1)*b+sqrt(D))/(2*a);

x2:=((-1)*b-sqrt(D))/(2*a);

write(x1,' ',x2);

end else if (D=0) then begin

x1:=(-1)*b/(2*a);

write(x1);

end else write('Нет решений');

end.

3)

var x,y: integer;

begin

readln(x,y);

if(x=0) or (y=0) then write('точка лежит на координатной оси')

else begin

if(x>0) then begin

if(y>0) then write('I')

else write('IV');

end else

if(y>0) then write('II')

else write('III');

end;

end.

0,0(0 оценок)
Ответ:
dimonatomp0ce79
dimonatomp0ce79
10.03.2022 14:07

Обычно - Вирусы не Заражают Комп. Обычных Людей. Обычно Заражаются Комп. в Офисах - Где есть какая - Либо Важная Информация.

Когда Анти-Вирус видит сам Вирус, он издаёт Звук и Говорит Голос - "Вирусная Угроза Была Обнаружена".

Также Исчезают Папки, Файлы и Деньги.

Но бывает также Вирусы, взламывают другие Комп; Телефоны, Планшеты и т.д. Ради Денег. - Высвечивается Надпись что бы приманить Хозяина любого устройства в том числе и комп.

Даже в самых Обычных Онлайн Игр Игровая Валюта - Румбы, Алмазы и Деньги (Игровые) - Могут стоить настоящие Деньги. Тогда Списывают с вашего счёта БЕЗ СПРОСА. Например: - 100 Руб. ; - 82 Руб. и т.д. (Я к примеру).

Или же при взломе На Комп. вместо Букв и Цифр - появляются Странные Символы - #"^^^*** и т.д.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота