uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>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("n = ");
int n = int.Parse(Console.ReadLine());
if (n > 4 && n < 21) Console.WriteLine("Мне {0} лет", n);
else
{
int a = n % 10;
if (a == 1) Console.WriteLine("Мне {0} год", n);
else
if (1 < a && a < 5) Console.WriteLine("Мне {0} года", n);
else Console.WriteLine("Мне {0} лет", n);
}
Console.ReadKey();
}
}
}
3
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>100 then writeln('Скидка = ',s*0.1)
else writeln('Скидка = ',s*0.05);
end.
Пример:
Сумма покупки = 200
Скидка = 20