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();
}
}
}
Var K:array [1..15] of integer;
z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь
Var
i,f, f0, f1: integer;
begin
f0 := 0;f1 := 1;
write(f0:4, f1:4);
for i := 1 to 8 do
begin
f := f1 + f0;
write(f:4);
f0 := f1;
f1 := f;
end;
end.
Тестовое решение:
0 1 1 2 3 5 8 13 21 34
Var i,r:integer;
p:real;
begin
write ('Введите число,r')
p:=3.14;
i=2*r*p;
writeln (Ответ ' ',i)
readln(i);
end;
Program Program1;
Var
a:array [1..10] of integer;
i:integer;
rez:boolean;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],',');
end;
rez:=false;
for i:=1 to 10 do
begin
if (i>1) and (a[i]=a[i-1]) then rez:=true;
if (i<10) and (a[i]=a[i+1]) then rez:=true;
end;
if rez then writeln(' Есть одинаковые соседние элементы') else
writeln(' Нет одинаковых соседних элементов');
<span>end.</span>