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

Контрольная работа по теме «Начала программирования». Вариант I

В заданиях группы А выбрать правильный ответ.

А1. Что из нижеперечисленного не входит в алфавит языка Паскаль?

латинские строчные и прописные буквы,

арабские цифры,

русские строчные и прописные буквы,

знак подчёркивания.

А2. Какая последовательность символов может служить именем программы в языке Паскаль?

_test, 2) nos_56, 3) 56_ttt, 4)Игорь78.

А3. Обозначение целочисленного типа данных в языке Паскаль.

integer, 2) real, 3) char, 4) string.

А4. В результате выполнения фрагмента программы:

a:=3,14;

writeln (frac(a));

на печать будет выведено:

14, 2) 3.14, 3) 3, 4) 3,14.

А5. В каком из условных операторов допущена ошибка?

if b=0 then writeln ( ‘Деление не возможно‘);

if a

if a>b then max:=a else max:=b;

if (a>b) and (b>0) then c:=a+b.

А6. В результате выполнения фрагмента программы

a:=5;

b:=20;

a:=a-b/2;

if a>b then c:=a+b else c:=b-a;

переменная с примет значение:

25, 2) 14,5, 3) -15, 4) -14,5.

А7. Цикл во фрагменте программы :

a:=0.5;

s:=0;

i:=0;

repeat i:=i+1; b:=1/i; s:=s+a; until b

выполнится

0 раз, 2) 2 раза, 3) 1 раз, 4) 4 раза.

А8. С оператора while в языке Паскаль программируется:

цикл - ПОКА, 2) цикл с параметром, 3) цикл – ДО, 4) все вышеперечисленные.

В заданиях группы Б представить полное решение или записать ответ.

Б1. Определите значение переменной b после выполнения фрагмента программы:

a:=4;

b:=3;

a:=12/a*b;

b:=a+b*2.

В ответе укажите одно целое число – значение переменной b.

практическая работа
написать программу вывода всех чисел [1056..50689], которые делятся нацело на 3 и на 6, но не делится на 8,9 и 5

👇
Открыть все ответы
Ответ:
Nosochekxnncnnc
Nosochekxnncnnc
02.08.2021
Что бы перевести и 2-ной c.c в десятичную,необходимо разложить число по разрядам,над числом  1100,начиная с конца (т.е от знака равно) и  начиная с нулевого разряда,т.е 1100(2)=(расставляем разряды над числом)1^{3} 1^{2}0^{1}0^{0} (2) =(теперь для того чтобы перевести из 2-ной в 10-ную,необходимо разложить число на множители, умножая на основание данной с.с и расставляя степень числа)1*2^{3}+1*2^{2}+0*2^{1}+0*2^{0}=(затем возводим основание с.с в степень данного числа)1*8+1*4+0*2+0*1=(в итоге перемножаем и складываем)8+4+0+0=(после сложение получилось число в 10-ной с.с) 12(10), то что (...)- это система счисления,записывается нижним индексом и без скобок,т.е старшей сестре 12 лет, если она пошла в школу с 111, то это 111(2)= 1^{2} 1^{1} 1^{0}=1* 2^{2} +1* 2^{1} +1* 2^{0}=1*4+1*2+1*1=4+2+1=7(10) ---->сестра пошла в школу с 7-ми лет, тут 7 лет - 1 кл, 8 лет - 2 кл,  9 лет - 3 кл,  10 лет - 4 кл, 11 лет - 5 кл, 12 лет - 6 кл
а младше сестре 100(2)= 1^{2} 0^{1}0^{0}1*2^{2} +0*2^{1}+0*2^{0}=1*4+0*2+0*1=4 (10) года
4,4(16 оценок)
Ответ:
Suri31
Suri31
02.08.2021

program raf105;

var

 n,i,x,sum,pro,kol1,kol2: integer;

begin

 write('Введите N: ');

 readln(n);

 writeln('Вводите ',n,' чисел по очереди');

 pro:= 1;

 for i:=1 to n do

 begin

   readln(x);

   if x > 0

     then begin

       sum:= sum+x;

       kol1:= kol1+1;

     end;

   if x < 0

     then begin

       pro:= pro*x;

       kol2:= kol2+1;

     end;

  end;

  writeln('Количество положительных: ',kol1);

  writeln('Сумма положительных: ',sum);

  writeln('Количество отрицательных: ',kol2);

  writeln('Произведение отрицательных: ',pro);

end.

PascalABC 3.4.2
4,6(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ