2. Подберите подходящий тип данных: a) Количество учеников в классе – integer, word, byte b)Заработанная плата сотрудника фирмы- real, double c) Фамилия сотрудника фирмы – string
3.Запишите арифметические выражения на языке программирования Паскаль: a) ac-b+xyz = a*c-b+x*y*z; в) a*x^2+b*x+c = a*x*x+b*x+c; c) (a-b)x+3/y+z = (a-b)*x+3/(y+z);
4) Напишите инструкцию вывода на экран: а) Вашего имени = write('Ваше имя'); В) Число 400 = write(400); С) Значение выражения x+y = write(x+y);
Этапы создания компьютерной программы. Понятие алгоритма. Виды алгоритмов. Представление алгоритмов в виде блок-схем. Понятие о программировании. Системы и языки программирования. Запись алгоритма на языке программирования. Трансляторы: компиляторы и интерпретаторы. Интерпретатор Quick Basic. Запуск интерпретатора и структура окна. Алфавит языка. Переменные и зачем они нужны. Типы переменных и их запись объявления переменных. Задание значений переменным. Оператор присваивания. Запись чисел, строк. Арифметические операторы и выражения. Ввод программы. Запуск программы. Исправление ошибок. Сохранение и открытие файлов. Справочная система. Ввод данных. Стандартные функции языка программирования и их использование в арифметических выражениях. Примеры составления простейших линейных программ. Вывод информации на экран. Операторы вывода. Средства расположения информации на экране. Оператор очистки экрана. Комментарии. Константы. Разветвляющиеся алгоритмы. Условный переход IF -THEN - ELSE. Виды условий. Операторы сравнения. Логические операторы и выражения. Сложные условия. Примеры программ с условными операторами. Циклические алгоритмы. Организация циклов с условных операторов. Цикл с параметром FOR. Циклы с предусловием и постусловием. Вложенные циклы.
Var
x,y,i:integer;
function nod(x,y:integer):integer;
begin
while x*y<>0 do
if x>y then x:=x mod y else y:=y mod x;
nod:=x+y;
end;
begin
readln(x,y);
for i:=1 to x div 2 do
if (x mod i=0) and (nod(i,y)=1) then writeln(i);
end.
Пример ввода:
15
27
Пример вывода:
1
5