Все категории

4 года назад

Запиши на Паскале логическое выражение: одно и только одно из чисел a, b и c - положительное

Знания

Информатика

1 ответ:

таня06814 года назад

0 0

var

a, b, c: real;

begin

Read(a, b, c);

Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)

end.

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

ДАЮ 23 БАЛА. ИНФОРМАТИКА 1. Переведите число 34Е16 в десятичную систему счисления Х10. 2. Переведите ответ задания 1 (десятичное

Вячеслав Малышев

Если это перевод из 16 ричной системы в 10 ичною, то наверное так, а то не понятно написанно.

0 0

4 года назад

Программа в Pascal ABC. С клавиатуры вводится предложение. Надо определить каких букв больше м или н.

Death [273]

var

s:string;

z,z1,i:integer;

begin

readln(s);

z:=0;

z1:=0;

for i:=1 to length(s) do

begin

if s[i]='м' then inc(z);

if s[i]='н' then inc(z1);

end;

if z>z1 then writeln('больше букв м');

if z<z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал -5<x<7

asa77

{Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал -5<x<7}
const
    max_x = 7;
    min_x = -5;
    d_x = 0.5;

var
    x, y: real;

begin
    x := min_x;
    while(x < max_x) do
    begin
        if(x <> 0) then
            y := 1 / (x * x)
        else y := 0;
        writeln('x=', x:2:1, ' y=', y:2:5);
        x := x + d_x;
    end;
end.

0 0

4 года назад

Содержания любого компьтерного меню

Marks Gidron

Файловий провідник, живлення, усі програми...

0 0

4 года назад

. Система команд исполнителя Вычислитель состоит из двух команд: 1 – прибавить 2 2 – умножить на 3. а) Составьте для Вычислителя

Konstantinopolskaya [1]

2 * 3 = 6 (2)

0 0

4 года назад