Var a,b,c: real;
begin
readln (a);
readln (b);
readln (c);
if (a mod 5)=0 then
writeln (a);
if (b mod 5)=0 then
writeln (b);
if (c mod 5)=0 then
writeln (c);
end.
Using System;
public class Test
{
public static int Main()
{
Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика
int n=Convert.ToInt32(Console.ReadLine());
int[] Arr=new int[n];
for(int i=0; i<Arr.Length; i++) {
Arr[i]=rnd.Next(1,99);
Console.Write(Arr[i]+" ");
}
Console.WriteLine();
for(int i=0; i<Arr.Length; i++) {
if(Arr[i]%2==0) {
int j=(int)Math.Round((double)Math.Sqrt(Arr[i]));
if(j*j==Arr[i]) Console.Write(Arr[i]+" ");
}
}
Console.WriteLine();
return 0;
}
}
Uses
Crt;
Var
a,b:integer;
Begin
Writeln('Введите ваш рост в сантиметрах, округлив до целого значения');
Readln(a);
b:=a-100;
Writeln('Для человека ростом ', a,' см идеальный вес ', b,' кг');
End.
Автомобиль черного цвета равен 8 бит = 256
<span>красный автомобиль равно 6 бит =</span> 64
белых автомобилей 36
256-64+36=156
Ответ=156