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

Pascal abc: 1. [-101,35] найти кол-во кратных 4 2. вычислить 1+2+4+8+16+

👇
Ответ:
needlife
needlife
14.09.2021

Задание 1

program n_1;

var k, i: integer;

begin

   k:=0;

   for i:=-101 to 35 do if i mod 4 = 0 then k:=k+1;

   writeln(k);

end.

Задание 2

program n_2;

var s, i: integer;

begin

   s:=0; i:=1;

   while i<=256 do begin

       s:=s+i; i:=i*2;

   end;

   writeln(s);

end.

4,8(46 оценок)
Открыть все ответы
Ответ:
Zena1112
Zena1112
14.09.2021

Паскаль не чувствителен к регистру, это значит, что переменные myvariable и MyVariable - эквивалентны. Однако для лучшей читабельности кода, необходимо использовать Camel Case и Pascal Case нотации.

PascalCase - это стиль написания имен, при котором составные слова названия идентификатора пишутся слитно, и каждое новое слово начинается с большой буквы. Пример: MyVar, MyBestProgramm, WorkArray.

Паскаль нотация используется для названий классов, публичных полей данных и констант, а также именования процедур и функций.

CamelCase (верблюжья нотация) - этот стиль повторяет правило для предыдущей нотации, только начинается с маленькой буквы. Пример: firstElement, myField, btnRun.

Нотация используется для локальных переменных и констант.

4,7(39 оценок)
Ответ:
verarusu02
verarusu02
14.09.2021
Var N1:array[1..10] of integer;
    N2:array[1..15] of integer;
    R1:array[1..10] of integer;
    R2:array[1..15] of integer;
    min1, min2, max1, max2, i:integer;
    R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
 if R1[i]<min1 then
  begin
  min1:=R1[i];
  R1min:=i;
  end else
   begin
   if R1[i]>max1 then
    begin
    max1:=R1[i];
    R1max:=i;
    end;
   end;
for i:=1 to 15 do
 if R2[i]<min2 then
  begin
  min2:=R2[i];
  R2min:=i;
  end else
   begin
   if R2[i]>max2 then
    begin
    max2:=R2[i];
    R2max:=i;
    end;
   end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.
4,8(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ