const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты Кг');
for i:=1 to round((fk-f0)/h)+1 do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
while f<fk do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
repeat
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.
Результат:
Фунты Кг
1.0 0.400
1.5 0.600
2.0 0.800
2.5 1.000
...
9.0 3.600
9.5 3.800
10.0 4.000
Объяснение:
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace zn
{
class Program
{
public static void Main(string[] args)
{
int sum = 0;
int m = 1;
Console.Write("Введите n > ");
int n = Convert.ToInt32(Console.ReadLine());
for(int i=0; i<n; i++)
{
Console.Write("Введите число > ");
int c = Convert.ToInt32(Console.ReadLine());
if (c.ToString().EndsWith("3") || c.ToString().EndsWith("4"))
sum += c;
if (c % 5 == 0 && c % 3 != 0)
m *= c;
}
Console.WriteLine("Сумма чисел заканчивающихся на 3 или на 4: " + sum);
Console.WriteLine("Произведение чисел, делящихся на 5, но не на 3: " + m);
Console.ReadKey();
}
}
}