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

Информатика Информационные ресурсы и сервисы Интернета

Показать ответ
Ответ:
NastyaMeow05
NastyaMeow05
31.05.2020 14:16
1.var a,b,c:integer;
d,x1,x2:real;
begin;
readln(a);
readln(b);
readln(c);
d:=sqr(b)-4*a*c;
if d<0 then
   writeln('Нет корней')
   else
    if d=0 then
     begin;
      x1:=-b/(2*a);
      writeln(x1);
     end
      else
       begin;
        x1:=(-b+sqrt(d))/(2*a);
        x2:=(-b-sqrt(d))/(2*a);
        writeln(x1);
        writeln(x2);
       end;
end.
2)var x1,y1,x2,y2:integer;
r1,r2,rr:real;
begin;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
r1:=sqrt(sqr(x1)+sqr(y1));
r2:=sqrt(sqr(x2)+sqr(y2));
if r1>r2 then
 begin;
  rr:=r1-r2;
  write('Расстояние от точки А до начала координат больше, чем расстояние от точки В до начала координат на ',rr,' единиц');
 end
  else
   if r1<r2 then
    begin;
     rr:=r2-r1; 
    write('Расстояние от точки B до начала координат больше, чем расстояние от точки A до начала координат на ',rr,' единиц');
    end
     else
      write('Точки A и B равноудалены от начала координат');
end.
0,0(0 оценок)
Ответ:
Bellatrisa
Bellatrisa
13.05.2022 00:40

program z1;

var i,x,y,z,k:integer;

begin

k:=0;

randomize;

writeln ('Проверка знания Таблицы умножения');

writeln;

for i:=1 to 5 do

begin

x:=random(9)+1;

y:=random(9)+1;

writeln ('Сколько будет ',x,' * ',y);

write ('Ваш ответ ');

readln (z);

if z=x*y then

begin

k:=k+1;

writeln ('Правильно!')

end

else writeln ('Неправильно!  ',x,' * ',y,' = ',x*y);

writeln

end;

writeln;

writeln ('Количество правильных ответов ',k)

end.

Объяснение:

Цикл с параметром (5 вопросов):

1) Числа генерируются случайным образом от 1 до 9

2) Вывод на экран вопроса

3) Ввод ответа пользователем

4) Оценка правильности ответа (полный оператор ветвления - если ответ пользователя верен, то увеличиваем значение k и выводим сообщение о верности ответа, иначе выводим сообщение об ошибочности ответа и верный ответ)

Вывод на экран количество правильных ответов

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