<span>uses crt;
procedure Prost(a:longint;var f:boolean);
var i:longint;
begin
if a<3 then f:=false
else
begin
f:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then f:=false;
end;
end;
var a,b,i,k:longint;
f:boolean;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел a<b:');
readln(a,b);
until (a>=0)and(b>a);
k:=0;
for i:=a to b do
begin
Prost(i,f);
if f then
begin
write(i,' ');
k:=1;
end;
end;
if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!');
readln
end.</span>
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("a = ");
double a = double.Parse(Console.ReadLine());
Console.Write("b = ");
double b = double.Parse(Console.ReadLine());
Console.Write("c = ");
double c = double.Parse(Console.ReadLine());
if (a > b) a = b;
if (a > c) a = c;
Console.WriteLine("Min = {0}",a);
Console.ReadKey();
}
}
}
#include <iostream>
using namespace std;
int main()
{
int even= 0;
for (int i=1; i <=70;i++)
{
if (i%2==0)
even+=i;
}
cout<<"Even= ";
cout<<even;
return 0;
}
От 45 до 70 см
______________________