Объем ёмкости A равен 7 л, ёмкости B - 9 л. Надо отмерить 1 л. Информатика

Знания

Информатика

1 ответ:

Dmitriy1114 года назад

0 0

Набираем в В
переливаем 2 раза в А
набираем снова В
<span>и еще 2 в А</span>

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

На языке Паскаль написать программу выводящую массив натуральных чисел с 1 до 15. Помогите, люди добрые. До завтра время дано!

anyagaevskaya

1) var k:integer; begin for k:=1 to 5 do write(i*2:4); readln end.
2) begin writeln((10+15)*(15-10+1)/2); readln end. или begin writeln(75); readln end.
3) var a,n:integer; begin readln(n,a); if n mod a = 0 then writeln('делится нацело') else writeln('не делится нацело'); readln end.
4) var n:integer; begin readln(n); writeln(trunc((sqrt(4*(n+1)+1)-1)/2+0.9999)); readln end;

0 0

4 года назад

Вывести программу по информатике: имеется сумма денег покупаем 3 вещи найти остаток денег после приобретения такую как: program

Павел-Т-А

Program pokypka;
var s,os,v1,v2,v3:integer;
begin
writeln('Введите имеющуюся сумму');
readln(s);
writeln('Введите цену первой вещи');
readln(v1);
writeln('Введите цену второй вещи ');
readln(v2);
writeln('Введите цену третьей вещи');
readln(v3);
os:=s-v1-v2-v3;
writeln('Остаток денег=',os)
end.

0 0

4 года назад

Дано натуральное число n. Вычислить произведение первых n сомножителей 1/2 * 3/4 * 5/6 * ... Задачка по C++

Ирина Гейм [7]

#include <iostream>

using namespace std;

int main()

{

int n;

cin>>n;

long double res=1;

for(int i=0,j=0;j<n;i+=2,j++)

res=res*((i+1)*1.0/(i+2));

cout<<res;

return 0;

}

0 0

4 года назад

Паскаль. Дан одномерный массив, значения которого вводятся с клавиатуры . Вычислить количество отрицательных элементов данного м

roman23r5 [2.3K]

Var a:array[1..100] of integer;
I,c,n:integer;
Begin
Readln(n);
For i:=1 to n do
Begin
Read(a[i]);
Write(a[i],' ');
If a[i]<0
Then c:=c+1;
End;
Writeln('кол-во отриц.=',c);
End.

0 0

4 года назад

1. Определите назначение гиперссылки.

Наталья65

Ответ:

Гиперссылка - это часть гипертекстового документа, ссылающаяся на другой.

0 0

4 года назад