Расставить коментарии

@Найк · Регистрация: 16.12.2010

Студворк — интернет-сервис помощи студентам

всем привет=) нужно раставить коментарии к следующим решённым задачам:
1)Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не делятся ни на какие простые числа, кроме 2, 3 и 5.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
VAR
 N,i,m:Byte;
 A,B,d:LongInt;
 b2,b3,b5:Boolean;
BEGIN
 Write('N (<256) = ');
 ReadLn(N);
 A:=0;
 i:=0;
 Repeat
  A:=A+1;
  B:=A;
  b2:=false;
  b3:=false;
  b5:=false;
  repeat
   d:=B div 2;
   m:=B mod 2;
   if m=0 then b2:=true;
   B:=d;
  until (m>0) or ((B=1) and (m=0));
  If m>0 then
   begin
    B:=B*2+m;
    repeat
     d:=B div 3;
     m:=B mod 3;
     if m=0 then b3:=true;
     B:=d;
    until (m>0) or ((B=1) and (m=0));
    If m>0 then
     begin
      B:=B*3+m;
      repeat
       d:=B div 5;
       m:=B mod 5;
       if m=0 then b5:=true;
       B:=d;
      until (m>0) or ((B=1) and (m=0));
     end;
   end;
  If (m=0) and b2 and b3 and b5 then
   begin
    Write(A:8);
    i:=i+1;
   end;
 Until i=N;
 ReadLn;
END.

2) Поменять местами треугольники квадратной матрицы, расположенные выше и ниже боковой диагонали.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Const
 N=5;
Var
 A,B:ARRAY[1..N,1..N] of Integer;
 i,j,D:Integer;
BEGIN
 Randomize;
 For i:=1 to N do
  For j:=1 to N do
   begin
    D:=Random(10);
    A[i,j]:=D-5;
   end;
 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A[i,j]:4);
   WriteLn;
  end;
 WriteLn('Transformed matrix:');
 For i:=1 to N do
  For j:=1 to N do
    B[i,j]:=A[N-j+1,N-i+1];
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(B[i,j]:4);
   WriteLn;
  end;
END.

3)В квадратной матрице найти номер строки с минимальной суммой её элементов и номер столбца с максимальной суммой элементов. Элементы найденной строки поменять местами с соответствующим элементом найденного столбца.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var a:array [1..5,1..5] of integer;
maxi,mini,i,j,n,min,max,sum:integer;
begin
n:=3;
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to n do begin
writeln;
for j:=1 to n do write(' ',a[i,j]);
end;
min:=32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do
   begin
     sum:=sum+a[i,j];
   end;
  if sum<min then begin min:=sum; mini:=i; end;
end;
Write(' Minimalnaya suma v ',mini,' stroke, ');
 
max:=-32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do
   begin
     sum:=sum+a[j,i];
   end;
  if sum>max then begin max:=sum; maxi:=i; end;
end;
Write('Maximalnaya suma v ',maxi,' stolbce');
end.

4)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
t,zn,ch:real;
n,i:integer;
begin
writeln(' Vvedite n=');
readln(n);
zn:=0;
for i:=1 to n+20 do
zn:=zn+1/i;
for i:=10 to 50 do
ch:=ch+sin(i);
zn:=sqr(zn);
t:=ch/zn;
write('t=',t);
end.

5) Дана строка символов. Необходимо определить в тексте позицию последнего появления определённого слова.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
VAR
 S,W,Sbef,Saft:String;
 cnt,i,W_pos:byte;
BEGIN
 Clrscr;
 WriteLn('Enter the string:');
 ReadLn(S);
 WriteLn('Enter the word:');
 ReadLn(W);
 Repeat
  cnt:=pos(W,S);
  if cnt>0 then
   begin
    W_pos:=cnt;
    Sbef:=copy(S,1,cnt-1);
    Saft:=copy(S,cnt+Length(W),Length(S)-cnt-Length(W)+1);
    S:=Sbef;
    For i:=1 to Length(W) do
     S:=S+'*';
    S:=S+Saft;
   end;
 Until cnt=0;
 WriteLn('The last position of the word "'+W+'" is ',W_pos);
end.

@N@tali · 30.12.2010, 23:00

Давай начнем с маленько задачи. Остальные сделаешь по образцу

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var         // задаем переменные и указываем тип переменных
t,zn,ch:real;
n,i:integer;
begin                //начало работы тела
writeln(' Vvedite n=');  // вывод строки " введите число"
readln(n);        
zn:=0;
for i:=1 to n+20 do    //для 1 к до 20 делать 
zn:=zn+1/i;             // операция присваения
for i:=10 to 50 do    //для I присваиваем 10до 50 делать
ch:=ch+sin(i);        //операция присваения
zn:=sqr(zn);          // операция присваения
t:=ch/zn;              // опреция присваения
write('t=',t);         // запись
end.                   // конец программы

Все команды в программах аналогичны. Будут вопросы копируй строчку и задавай .

@Найк · 31.12.2010, 01:31 **[ТС]**

хорошо, надеюсь разберусь)

Добавлено через 2 часа 5 минут
Если тут есть кто, помогиите составить по этим задачам блок-схемы(((( я до утра буду это делать, надо за ночь успеть(((((

@SuPeR XaKer · 31.12.2010, 01:46

Вот тебе подарок от Дедушки Мороза.

@Найк · 31.12.2010, 01:48 **[ТС]**

Огромнейшое спасибо, как же ты меня выручил, эт мой лучший подарок)))))))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@Найк 0 / 0 / 2 Регистрация: 16.12.2010 Сообщений: 32
	31.12.2010, 01:31 [ТС]
	хорошо, надеюсь разберусь) Добавлено через 2 часа 5 минут Если тут есть кто, помогиите составить по этим задачам блок-схемы(((( я до утра буду это делать, надо за ночь успеть((((( 0

@Найк 0 / 0 / 2 Регистрация: 16.12.2010 Сообщений: 32
	31.12.2010, 01:48 [ТС]
	Огромнейшое спасибо, как же ты меня выручил, эт мой лучший подарок))))))) 0