polyakovred
07.11.2022 13:48

1. Определите значение переменной «a» после выполнения фрагмента программы:
a := 10;
if a > 4 then
a := 6+а;
2. Определите значение переменной «a» после выполнения фрагмента программы:
a := 10;
if a < 15 then
a := a + 12
else
a := a - 7;
3. Определите значение переменной «a» после выполнения фрагмента программы:
a := 10;
if a > 5 then a := a + 12
else a := a - 7;
if a > 5 then a := a + 12
else a := a - 7;
4. Определите значение переменной «a» после выполнения фрагмента программы:
a := 10; b := 3;
if a > b then b := b + 15
else a := a - 6;
if a > b then a := a + 16
else a := a - 7;
5. Определите значение переменной «a» после выполнения фрагмента программы:
a := 10; b := 5;
if (a > 5) and (a < b) then
a := a - 5;
6. Определите значение переменной «a» после выполнения фрагмента программы:
a := 10; b := 5;
if (a > 1) and (a < b) then
a := a - 5;
if (a > 1) and (a = b) then
a := a - 5;
7. Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 3?
a := 10; b := 5;
if (a < 1) ... (a > b) then
a := a - 7
else
a := a + 7;
8. Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 15?
a := 10; b := 5;
if (a < 1) ... (a > b) then
a := a - 9
else
a := a + 3;
9. Даны три целых числа X, Y и Z, обозначающие углы треугольника в градусах. Если треугольника с такими углами не существует, то выдать соответствующую надпись. Если существует, то выдать соответствующее сообщение и сказать - какой это треугольник: остроугольный, прямоугольный или тупоугольный.
Например: 110 50 30 - не существует!
0 110 70 - не существует!
90 0 90 - не существует!
60 120 0 - не существует!
110 50 20 - существует тупоугольный.
90 45 45 - существует прямоугольный.
60 90 30 - существует прямоугольный.
75 15 90 - существует прямоугольный.
60 60 60 - существует остроугольный

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
MaksimKim2005koreec
03.02.2020 19:23
// Паскаль
// Программа поддерживает латиницу, кириллицу и дефисы

const
  // Первая буквы, англ. "a" - 65, но может быть дефис #45
  first_letter = #45;
  // Последняя буквы, рус. "я"
  last_letter = #1103;

var
  x: string;
  i: integer;
  c: char;
  // Сколько раз встречает буква в слове
  count: array[first_letter..last_letter] of integer;
begin
  readln(x);
  // Обнуляем массив
  for c := first_letter to last_letter do
    count[c] := 0;
  // Подсчитываем буквы в слове
  for i := 1 to length(x) do
    inc(count[x[i]]);
  // Выводим слово без букв, встречающихся 3 раза
  for i := 1 to length(x) do
    if count[x[i]] <> 3 then
      write(x[i])
end.
0,0(0 оценок)
Ответ:
mariaks16
03.02.2020 19:23
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var s:=ReadlnString('Введите двухзначное 16-ричное число');
  var mH:array['A'..'F'] of integer:=(10,11,12,13,14,15);
  if s.Length=1 then s:='0'+s;
  var c:=s.ToCharArray;
  var n:=0;
  for var i:=0 to 1 do
    case c[i] of
    '0'..'9':n:=16*n+StrToInt(c[i]);
    'A'..'F':n:=16*n+mH[c[i]];
    else begin
      Writeln('Недопустимый символ: ',c[i]);
      Exit
      end
    end;
  Writeln('Десятичный эквивалент: ',n)
end.

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