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

Определите, что будет выведено в результате выполнения следующей программы: program m1;
var i, k: integer;
a: array [1..10] of integer;
begin
for i:= 1 to 10 do a [ i ]: = i - 5;
k:= 0;
for i:= 1 to 10 do
if a [ i ]>=0 then k:= k + 1;
writeln (‘k= ‘, k)
end.

👇
Ответ:
igorkurkin02
igorkurkin02
06.09.2021

программа считает количество не отрицательных элементов массива

будет выведено:

k=6

4,4(71 оценок)
Открыть все ответы
Ответ:
228666228666228
228666228666228
06.09.2021
Const
  Cyr=['А'..'я','Ё','ё'];
  Lat=['A'..'z'];
  Dig=['0'..'9'];
var
  s,sC,sL,sD,sO:string;
  i:integer;
begin
  Writeln('Введите произвольную строку символов');
  Readln(s);
  sC:=''; sL:=''; sD:=''; sO:='';
  for i:=1 to Length(s) do
    if s[i] in Cyr then sC:=sC+s[i]
    else
      if s[i] in Lat then sL:=sL+s[i]
      else
        if s[i] in Dig then sD:=sD+s[i]
        else sO:=sO+s[i];
  Writeln('Кириллица: ',sC);
  Writeln('Латиница : ',sL);
  Writeln('Цифры    : ',sD);
  Writeln('Прочее   : ',sO)
end.

Тестовое решение:
Введите произвольную строку символов
Запишем следующее выражение: y=5*Sin(x)/(3.5*x+Sqr(x); (язык Pascal)
Кириллица:
Латиница : ySinxxSqrxPascal
Цифры    : 535
Прочее   :   : =*()/(.*+(); ( )

Примечание: поскольку в задании не сказано, что требуется записать все использованные символы только по одному разу, они повторяются.
4,7(34 оценок)
Ответ:
2K99
2K99
06.09.2021
PascalABC.Net с максимумом "фишек":
function f(x:double):double;
begin
  result:=(3*x+2*x+5)/(cos(x)-sin(x))+power(x,3)
  { Cкорее всего, в условии ошибка и должно быть не 3х, а 3x^2,
    тогда надо числитель писать как (3*sqr(x)+2*x+5) }
end;

var
  x:double;
begin
  foreach x in [0.1,0,1.5] do
    Writeln('x=',x:3:1,'  y=',f(x):0:5)
end.

Результат выполнения программы:
x=1.5  y=-10.11288
x=0.1  y=6.14508
x=0.0  y=5.00000

Обратите внимание, что порядок следования х не такой,
как указан в программе: элементы множества
считаются неупорядоченными и компилятор вправе
располагать их произвольно.

Более традиционное решение
function f(x:double):double;
begin
  result:=(3*x+2*x+5)/(cos(x)-sin(x))+power(x,3)
  { Cкорее всего, в условии ошибка и должно быть не 3х, а 3x^2,
    тогда надо числитель писать как (3*sqr(x)+2*x+5) }
end;

const
  a:array[1..3] of double=(0.1,0,1.5);
var
  i:integer;
begin
  for i:=1 to 3 do
    Writeln('x=',a[i]:3:1,'  y=',f(a[i]):0:5)
end.

Результат выполнения программы:
x=0.1  y=6.14508
x=0.0  y=5.00000
x=1.5  y=-10.11288
4,6(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ