Какие ощущения вы испытывали купаясь летом в реке

Знания

Информатика

2 ответа:

Cat0873 года назад

0 0

Я когда купался летом в реке мне было весело,и я подумал накупаюсь в реке.Не каждый раз ты будешь купаться в реке или зимой в отрубе,но в отрубе очень холодная вода там один раз нырнул и сразу из воды выпрыгиваешь.А потом привыкнешь как и к реке,главное нырнуть!

Александр Алексан...3 года назад

0 0

Восторг, радость, погружение в лето

Читайте также

Пропускная способность некоторого канала связи равна 1 024 000 бит/с. Сколько времени займёт передача файла объёмом 625 Кбайт по

magicshop2013

625 Кбайт = 625*1024 байт = 625*1024*8 бит
Время передачи файла = 625*1024*8/1024000 = 5 с

0 0

4 года назад

Var a,b,c:integer; begin a:=−35; b:=abs(a); writeln('abs(−35)=',b); c:=sqr(b); writeln('sqr(b)=',c); c:=sqr(b+b); writeln('sqr(b

Любит Бога [3.1K]

Примерно так:

abs(−35) = 35
sqr(b) = 1225
sqr(b+b) = 4900

0 0

4 года назад

Решите пожалуйста 7 класс Найти сумму цифр двухзначного числа, прошу вас,заранее спасибо

Gerinas

Program n1;
var a,sum: integer;
begin
write('введите число: ');
readln(a);
sum:=(a mod 10)+(a div 10);
writeln('сумма цифр числа ',a,' равна ',sum);
end.

0 0

4 года назад

Program n_1;var a,P:integer;beginwriteln('Введите значение стороны квадрата');readln(P);P:=4*a;writeln('P');end.я написала прогр

АлексейС1993 [50]

Program n_1;
var a,P:integer;
begin
writeln('Введите значение стороны квадрата');
readln(a);
P:=4*a;
writeln(P);
<span>end.</span>

0 0

4 года назад

Дана матрица размера 5*10. Вывести номер ее последнего столбца, содержащего только положительные элементы. Если таких столбцов н

Славная [7]

PROGRAM MAIN
   INTEGER I,J,K
   LOGICAL FLAG
   INTEGER A,B
   DIMENSION A(5,10)
   DIMENSION B(50)
   EQUIVALENCE (A,B)
   READ *,(B(I),I=1,50)
   DO 70 I=1,5
      PRINT *,(A(I,J),J=1,10)
70 CONTINUE
    DO 100 J=10,1,-1
    FLAG=.TRUE.
    K=J
    DO 200 I=1,5
       IF (A(I,J) .LE. 0) THEN
         FLAG=.FALSE.
         GOTO 100
       END IF
200   CONTINUE
    IF (FLAG) GOTO 300
100 CONTINUE
300 PRINT *,'k=',K
END PROGRAM MAIN

0 0

4 года назад