М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Igrilla19990
Igrilla19990
14.01.2023 11:33 •  Информатика

Определите значение переменной выполнения следующего фрагмента программы: a : = 30; b : = 14; a : = a – 2 * b; if a > b then c : = b + 2 * a else c : = b - 2 * a; определите значение переменной выполнения следующего фрагмента программы: a : = 30; b : = 6; a : = a * 3 / b; if a < b then c : = 3*a - 5 *(b+3) else c : = 3*a + 5 * (b+3); определите значение переменной выполнения следующего фрагмента программы: a: = 30; b: = 6; a: = a * 3 / b; if a > b then с: = 2*a - 5*(b+2) else с: = 2*a + 5*(b+2); определите значение переменной выполнения следующего фрагмента программы: a : = 56; b : = 2; k : = 5; a : = a/8 – b; if a > b then c : = 10*a – k*b else c : = 10*a + k*b; определите значение переменной выполнения следующего фрагмента программы: a: = 30; b: = 6; a: = a * 3 / b; if a < b then с: = 2*a - 10* b else с: = 2*a + 10* b;

👇
Ответ:
lyagaeva87
lyagaeva87
14.01.2023
1) program first;
var a,b,c:integer;
begina := 30;b := 14;
a := a - 2 * b;
if a > b then
c := b + 2 * a
elsec := b - 2 * a;
writeln (c);
end. 
в итоге с:=10
2) program first1;
var a,b,c:real;
begina := 30;
b := 6;
a := a * 3 / b;
if a < b then
c := 3*a - 5 *(b+3)
elsec := 3*a + 5 * (b+3);
writeln (c);
end. 
в итоге с:=90
по аналогии выполняются другие примеры если условие выполняется, то решаем первое выражение, если нет то второе условие это например if a < b
4,5(78 оценок)
Открыть все ответы
Ответ:
tekeevalb
tekeevalb
14.01.2023

Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)

 

#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strtok;
using std::strlen;

int main()
{
char a[100], *ptr;

cout << "Enter the string:" << endl;
cin.getline(a, 100);

cout << endl;

ptr = strtok(a, "., ");
while(ptr)
{
if(*ptr == *(ptr + strlen(ptr) - 1))
{
cout << ptr << ' ';
}

ptr = strtok(NULL, "., ");
}

cout << endl;

return 0;
}


Дана строка. найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. язык си+
4,6(7 оценок)
Ответ:
abdulismailova2
abdulismailova2
14.01.2023
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var m:=ReadInteger('Количество элементов в массиве А (m):');
  var n:=ReadInteger('Количество элементов в массиве B (n):');
  var k:=ReadInteger('Позиция вставки k (1<k<m):');
  if (k>1) and (k<m) then begin
    var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
    var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
    Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
    end
  else Writeln('Вы нарушили условие 1<k<m')
end.

Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26
4,4(17 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ