М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
АлисаAprel
АлисаAprel
10.11.2022 14:27 •  Информатика

Составить программу паскаль к : 1)в 200 граммах воды растворили 25 грамм поваренной соли. найдите массовую долю соли в растворе? 2)вычислить площадь и периметр прямоугольного треугольника по заданным длинам двух катетов а и b

👇
Ответ:
Education26
Education26
10.11.2022
1.
Program tt;
var  A,B,C,D: Real;
begin      
Writeln ('Введите массу воды в граммах.'); Readln(A);      
Writeln ('Введите массу соли в граммах.'); Readln(B); 
D := B+A;
C := B/A;
Writeln ('Массовая доля соли в раствворе - ',C,'.');
End.    
2.
Program tt;
var  A,B,PL,Per: Real;
begin      
Writeln ('Введите длинну первого катета.'); Readln(A);      
Writeln ('Введите длинну второго катета.'); Readln(B); 
PL := (B*A)/2;
PER := sqrt(B*B+A*A)+A+B;
Writeln ('Площадь - ',PL,'.');
Writeln ('Периметр - ',PER,'.');
End.    
4,5(42 оценок)
Ответ:
vmartynova77
vmartynova77
10.11.2022
1) Program abc;
var a,b:integer;
     x:real;
begin
writeln('Введите массу воды');
readln(a);
writeln('Введите массу раствора');
Readln(b);
x:=b/a*100;
writeln(x,'%');
end.
2)
Program tt;
var  a,b,c,P:integer;
     S:real;
begin
writeln('Введите первый катет');
readln(a);
writeln('Введите второй катет');
readln(b);
c:=sqr(a)+sqr(b);
P:=a+b+c;
S:=a*b/2;
writeln('Площадь=',S,' ','Периметр=',P);
End.
4,6(12 оценок)
Открыть все ответы
Ответ:
nastiaalecko00
nastiaalecko00
10.11.2022
Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
4,5(74 оценок)
Ответ:
Tusovik
Tusovik
10.11.2022

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
4,6(3 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ