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

1) Программа – это…
a) инструкция для человека
b) набор команд (инструкций), которые управляют работой компьютера
c) набор слов для выполнения
2) Выберите основные составляющие текста программы Pascal
a) Заголовок, описание, операторы
b) Операторы
c) Начало, программа, окончание
d) Заголовок, программа, окончание
3) Данные, которые в процессе выполнения программы не меняются:
a) переменные
b) константы
c) операторы
4) Между какими словами должны находится операторы программы:
a) program, input
b) begin, end
c) program, end
d) begin, input
5) Какой символ служит символом-разделителем в программе:
a) :
b) {
c) [
d) ;
6) К какому типу переменных относится переменная real?
a) Целый
b) Символьный
c) Вещественный
d) Логический
7) К какому типу переменных относится переменная integer?
a) Целый
b) Символьный
c) Вещественный
d) Логический
8) К какому типу переменных относится переменная char?
a) Целый
b) Символьный
c) Вещественный
d) Логический

9) К какому типу переменных относится переменная boolean?
a) Целый
b) Символьный
c) Вещественный
d) Логический
10) Как пишется оператор присваивания:
a) :
b) ;
c) :=
d) ;=

👇
Открыть все ответы
Ответ:
YULEMESLEILAA
YULEMESLEILAA
17.04.2020
Pascal:
var n,a,s:longint;
begin
  repeat
    write ('N = ');
    readln(n);
  until n in [10..99];
  write ('A = ');
  readln(a);
  s:=0;
  while n<>0 do
    begin
       s:=s+n mod 10;
       n:=n div 10;
    end;
  if s>a then writeln ('YES') else writeln ('NO');
  readln;
end.

C++:
#include <iostream>
using namespace std;

int main()
{
   int a,n,s = 0;
   do
   {
      cout <<"N = ";
      cin >>n;
   }
   while (n<10 || n>99);
   cout <<"A = ";
   cin >>a;
   while (n!=0)
   {
     s+=n%10;
     n/=10;
   }
   if (s>a)
      cout <<"YES" <<endl;
   else cout <<"NO" <<endl;
   return 0;
}
4,4(80 оценок)
Ответ:
mikreaz
mikreaz
17.04.2020
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
procedure GetProdNeg(a:array of integer; var p:real);
// произведение отрицательных элементов
begin
  p:=a.Where(x->x<0).Aggregate(1.0,(p,e)->p*e)
end;

function IsPrime(n:integer):boolean:=
  Range(2,Round(sqrt(n))).All(i->n mod i<>0);

procedure ArrPrime(n:integer; var a:array of integer);
// массив простых чисел не больших n
begin
  a:=Range(2,n).Where(i->IsPrime(i)).ToArray
end;

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50); a.Println;
  var r:real;
  GetProdNeg(a,r);
  Writeln('Произведение ',r);
  n:=ReadInteger('n=');
  var b:array of integer;
  ArrPrime(n,b);
  b.Println
end.

Тестовое решение:
n= 15
27 -7 -36 40 -15 -21 -47 -28 -12 45 3 -38 -15 1 -39
Произведение 27866837980800
n= 300
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293
4,8(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ