12/4=3 остаток ноль, значит идем по ветке "да"
12/4=3
А=3
Ответ А=3
Ответ:
2048киллобайт в секунду для 2мб
Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
<em>Паскаль</em>
var a,b,c,S,p:real;
label e;
begin
e: a:=0;b:=0;c:=0;read (a,b,c);
if ((a+b) <= c) or ((a+c) <= b) or ((b+c) <= a) then
begin
writeln ('Такого треугольника не существует, введите стороны заново');
goto e;
end;
if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника = ',S);
end;
end.
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication4
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введи длину массива");
int n = int.Parse(Console.ReadLine());
int[] mass = new int[n];
for (int i = 0; i < n; i++)
{
Console.WriteLine("Введи " + i + " элемент");
mass[i] = int.Parse(Console.ReadLine());
}
for (int i = 0; i < n; i++)
{
if (i == mass[i])
Console.WriteLine("Элемент " + i + " совпадает со своим индексом");
}
Console.ReadKey();
}
}
}