Нужно сократить программы (Написать рационально)

10.12.2017, 16:26. Показов 402. Ответов 0

Метки нет (Все метки)

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

Нужно сократить программы (Написать рационально)

1 Прога:

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
program MyProg10;
uses crt;
var a,b,delitel,r:integer;
Ch:Char;
begin
 textbackground(6);
 clrscr;
 textcolor(15);
 gotoxy(20,20);
 Write('Vvedite chisla:');
 Readln (a,b);
 clrscr;
 gotoxy(20,20);
 Write('Chisla: ',a,' ',b);
 gotoxy(20,21);
 while (a mod b)<>0 do
 begin
  r:=a mod b;
  a:=b;
  b:=r;
 end;
 delitel:=b;
 Writeln ('naibolshy obshy delitel: ',delitel);
 Ch:=ReadKey;
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
Program MyProg9;
uses crt;
var i,b,k :integer;
Ch:Char;
begin
 textbackground(5);
 clrscr;
 textcolor(15);
 gotoxy(20,20);
 Write('Vvedite chislo ');
 Readln(b);
 clrscr;
 gotoxy(20,20);
 for i:=1 to b do
 if (b mod i = 0) then
  k:=k+1;
 if k >2 then
  writeln ('Chislo ne prostoe')
 else
  writeln (b,' - Chislo prostoe');
 Ch:=ReadKey;
End.

Заранее спасибо!

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

10.12.2017, 16:26

Ответы с готовыми решениями:

Нужно "сократить" программу (Написать без использования переменных)
Нужно написать эту программу не используя циклов: Кто ответит, буду ОЧЕНЬ признателен) program MyProg2; Uses Crt; var...

Нужно написать программы.Очень нужно
Подпрограммы 1.Написать программу для вычисления суммы факториалов всех нечетных чисел от 1 до 9. Для решения использовать подпрограмму...

Нужно написать программы
Прошу помочь хотя бы с любым из заданий: Задание 1. Создать программу с использованием цикла со счетчиком: найти произведение 12...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

10.12.2017, 16:26

Помогаю со студенческими работами здесь

Нужно написать 2 программы
Здравствуйте, уважаемые пользователи данного форума. Возникла проблема я не могу написать 2 программы в Pascal. Прошу скиньте...

Нужно написать программы
Здравствуйте! Мне нужно решить 14 задач))Помогите кто чем сможет))За ранние спасибо!!! 1. Даны три числа. Написать фрагмент программы,...

Нужно написать блок схему для программы
program abc; const e=0.0001; var x,x1,l,fx,fxp:real; n,a,b:integer; function Fiter(x:real;a,b:integer):real; begin...

нужно написать программы(сколько сможите)срочно..до 9 июня 2010 года
пожалуйста..очень срочно..напиши программы

Как сократить время работы программы?
Вот текст олимпиадной задачи: Ваша задача – посчитать сумму двух чисел. Входные данные В единственной строке входного файла...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Наверх