. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
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. Циклы с предусловием и постусловием. Вложенные циклы.
ответ:
. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
var
i, n, j, s, l: integer;
m: real;
begin
readln(n);
for i : = 2 to n do
begin
s : = trunc(sqrt(i));
for l : = 2 to s do
begin
m : = i mod l;
if m = 0 then
begin
write(' ', i);
break;