Задать вопрос!

Задать вопрос!

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

3 года назад

9

Помогите пожалуйста!!!!

Помогите пожалуйста!!!!

Информатика

1 ответ:

tatyna-tor [14]3 года назад

0 0

Что-то странное :гамашина

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

Получить из слова "абракадабра" - "академик". в паскале

Александра9129 [2]

Окладом ос сов слова словом на слутсоят мосту 183

0 0

4 года назад

Напишите программу вычисления выражения:s=1!+2!+3!+...+n!Здесь n! - факториал числа n. n!=1×2×...×(n-1)× n.Используйте функцию в

AlexMoscowIT

var

n : integer;

S : decimal;

function fac(n : integer) : decimal;

begin

result := 1;

for var i := 1 to n do result := result * i;

end;

begin

write('введите n = ');

readln(n);

for var i := 1 to n do S := S+fac(i);

writeln('S=', S);

end.

0 0

4 года назад

В) Выполнить умножение: а) 100111(2) * 1000111(2) = б) 1170,64(8) * 46,3(8) = в) 61,A(16) * 40,D(16 объясните

Romuald2006 [7]

Решение на фотографии. Подробное объяснение по умножению в системах счисления в другой фотографии.

0 0

4 года назад

с клавиатуры вводят слово.Составить программу ,которая: а)определяет количество символов в нём б)проверяет,не совпадают ли перва

GirlKriss

uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');

writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');

if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');

end.

0 0

4 года назад

Сформировать целочисленный массив из n элементов. Значение элементов вводится с клавиатуры. Найти произведение элементов с черны

Миша1266

Var a:array[1..1000] of integer;
n,i,p:integer;
begin
write('Введите количество элементов массива (n<1000): ');
readln(n);
for i:=1 to n do readln(a[i]);
write ('Массив: ');
for i:=1 to n do write(a[i],' ');
writeln;
p:=1;
for i:=2 to n do
if i mod 2 = 0 then p:=p*a[i];
writeln('Произведение элементов с чётными номерами равно ',p);
readln
end.

0 0

3 года назад