Все категории

4 года назад

Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале.(Паскаль АВС)

Знания

Информатика

1 ответ:

sobakin4 года назад

0 0

Program z1;

uses crt;

var n,m,kd,i,j,s: integer;

begin repeat write('n=');readln(n);

Write('m='); readln(m);

until (n<m);
for i:=n to m do

begin

kd:=0;

for j:=2to i div2do

if i mod j=0then inc(kd);

if kd=0then

begin

write(i,' ');inc(s);

end;

writeln;

writeln('Всего ',s); end.

Читайте также

Даю 34 балла))) Составить блок-схему. Даны значения трех действительных переменных a, b и c. Обменять местами их значения так, ч

ktyf71

Линейный алгоритм. Решение во вложении.

0 0

4 года назад

Книга,набранная с помощью компьютера, содержит 250 страниц.На каждой странице 45 строк,в каждой строке -50 символов.Каков объем

zheka-m

Просто же :)

50*45*250 =562500

0 0

3 года назад

Перевод времени из минут и секунд в секунды. Написать программу, которая запрашивает у пользователя время в виде «минуты – секун

mihail69 [70]

//Pascal ABC.NET 3.1 сборка 1219

Var
m,s,r:double;
begin
try
read(m,s);
r:=s+m*60;
writeln(r);
except
on System.OverflowException do writeln('Переполнение');
end;
end.

Пример ввода:
32345678903456787654324657865432456786543245687654356786543
3456754365786545678976543567865435678
Пример вывода:
1.94074073420741E+60

0 0

4 года назад

Помогите решить 1,2 и 3 задачи.

Деточкин [14]

Ответ:

3 задание

#include <iostream>

using namespace std;

int main()

{

int n;

cin>> n;

for (int i = 0; i < n; i++)

{

cout << endl;

for (int j = 0; j <i; j++)

cout << 1 << " ";

}

return 0;

}

Объяснение:

0 0

3 года назад

Составьте программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введенной строке s. Pascal abc Пример

Мамишка [34]

Var s: string;
    a: array['a'..'я'] of integer;
    i: integer;
    c: char;
begin
write('Введите слово: ');
readln(s);
for i := 1 to length(s) do
    inc(a[s[i]]);
writeln('Количество букв ');
for c := 'а' to 'я' do
    writeln(c, ': ', a[c]);
end.

0 0

4 года назад