4 года назад

Помогите, пожалуйста, последнюю задачу

Знания

Информатика

1 ответ:

Танюшка ЯЯя [7]4 года назад

0 0

А где сама задача? ты можешь прислать фотографию задания , или написать

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

Составить программу есть ли среди чисел x y z числа кратные 5. если такие числа имеются то увеличить их на 1

serge007

Не указано на каком языке программирования нужно, поэтому напишу уж на Паскале. Всё сделал так, чтобы было понятно, хоть и не так компактно.

Var x, y, z:integer;
Begin
Write('Введите числа X, Y и Z^: ');
Readln(x, y, z);
If x mod 5=0 then x:=x+1;
If y mod 5=0 then y:=y+1;
If z mod 5=0 then z:=z+1;
Writeln('Полученные в итоге числа(X, Y, Z):', x, ', ', y, ', ', z);
End.

0 0

4 года назад

Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 71 оканчивается на 13 А 2, 4,

hfilipenk

Двоичная система счисления не подходит (в ней нет цифры 3)
71(10) = 1013(4)
71(10) = 43(17)
71(10) = 23(34)
71(10) = 13(68)
Ответ: <span>Б 4, 68</span>

0 0

4 года назад

Составить программу нахождения n факториал (n!) Помогите пожалуйста!! Информатика, 9 класс, операторы ветвления Спасибо!!!

K0T B H0CKE [17]

Var n,i:integer; Begin Read(n); I:=0; While n>0 do begin I:=i*n; Dec(n); End; Writeln(i); End.

0 0

3 года назад

Пользователь вводит любую строку с любым количеством символов и любыми знаками. Найти сколько согласных букв в строке и вывести

Партнер Астана

Const g=['й','ц','к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б','Й','Ц','К','Н','Ш','Щ','З','Х','Ф','В','П','Р','Л','Д','Ж','Ч','С','М','Т','Б'];
var str: string;i: byte;
begin
readln(str);
for i:=1 to length(str) do
begin
if str[i] in g then writeln (str[i]);
end;
end.

0 0

4 года назад

ИНФОРМАТИКА, 9 КЛАСС ПОМОГИТЕ♥♥♥♥♥

токарь8888

Операция И - логическое умножение, где 1 * 0 = 0, 1 * 1 = 1, 0 * 0 = 0. Операция ИЛИ - логическое сложение, где 1 + 1 = 1, 0 + 1 = 1, 0 + 0 = 0. Операция НЕ - логическое отрицание, где НЕ 0 = 1, НЕ 1 = 0.

0 0

4 года назад