#include "stdio.h"
main()
int N = 10, count = 0, z = 5, i;
int m[N];
double res = 0
for(i = 0, i < N, i++)
if ((m[i] >= -3) && (m[i] <= 3))
{
count++;
res = res + m[i];
}
if (count == 0)
res = 0;
else
res = res / count;
if (res > z)
{
res = 0;
for(i = 0; i < N; i++)
if (m[i] % 2 == 0)
res = res + m[i];
}
else
{
res = 1;
for(i = 0; i < N; i++)
if (m[i] % 2 != 0)
res = res * m[i];
}
printf("Z = %f", res);
}
Ответ с пробелами
352 бита
Ответ без пробелов
320 бита
Объяснение:
16 бит 1ин знак Значит надо умножить 16 на количество букв( в данном случае).
1)16*22=352
2)16*20=320
PascalABC.net
var x,y:real;
begin
write('Введите x: ');
readln(x);
if (x>=-2) and (x<=-1) then y:=2*x+4;
if (x>-1) and (x<=1) then y:=2*x*x;
if (x>1) and (x<=2) then y:=-2*x+2;
if (x<-2) or (x>2) then
writeln('Функция не определена')
else writeln('f(x)=',y);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)