1. var a:array[1..10] of integer;
n, i: integer;
s:real;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0;n:=0;
for i:=1 to 10 do
if a[i]>28 then begin s:=s+a[i]; n:=n+1 end;
if n>0 then writeln(n,s/n) else writeln('net >28')
end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3('Введите длины сторон треугольника:');
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{int n,k,m,val,i;
val=1; //val-ценность одной части
scanf("\%d \%d \%d",&n,&m,&k);
i=2;
while(k/(i*n)!=0)
{i++;
val++;}
printf("\%d",m/val+m\%val);
return 0;}
Пример ввода:
4
5
9
Пример вывода:
3
Конкретнее. Если ты о сайтах с учебной информацией то это только те ресурсы которые пошли проверку Роскомнадзор и мин.обр.
У Ани меньше , чем у Бори значит: Боря-Аня У Васи меньше чем,У ани значит: Боря-Аня-Вася У Васи больше , чем у Гали значит :Боря-Аня-Вася-Галя У Даши больше ,чем у Бори значит :Даша-Боря-Аня-Вася-Галя У Даши меньше , чем у Ивана значит: Иван - Даша-Боря-Аня-Вася-Галя Иван - 32 Гб,Даша-16 Гб,Боря -8 Гб , Аня - 4 Гб ,Вася-2 Гб,Галя -1 Гб