program chisla;
var summa,n,y,i:longint;
begin
writeln('daite N'); readln(n);
for i:=1 to n do summa:=summa+i;
{etot tikl dayot summu dlya nomera N, primer: n=5, summa=1+2+3+4+5=15;}
y:=(n+1)/2;
if y>summa then writeln('Y > summa N ') else
if y=summa then writeln('Y = summa N') else writeln('Y < summa');
readln;
end.
ya tak ponyal zadachu, esli ne tak, proshu popraviti. spasibo
Var a,b,c: integer;
begin clrscr;
write('Надо написать 1 число'); read(a);
write('Надо написать 2 число'); read(b);
if a<b then write('c=',a) else write('c=',b);
end.
import java.util.Random;
import java.lang.Math;
import java.util.function.Function;
public class ot_1_do_100 {
public static void main(String[] args) {
Random r = new Random();
int s =0; int k;
int[] Array;
Array = new int[15];
for (k = 1; k <= 15; k++) {
int n = r.nextInt(15); //Диапозон рандома (от 0 до 14) + присвоение
s += n;
System.out.print(n + " "); //Вывод рандомных чисел
}
System.out.print(s); // Сумма всех чисел
}
}
Объяснение: Это язык Java
Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.
Привет, как настроение? Меня зовут Алина, мне 18 лет. Хочу познакомиться с хорошим парнем..
Если тебе это интересно, напиши мне тут - http://onetimesex.com
Мой ник - KissKa