Новые вопросы

Информатика Архивный вопрос

Помогите пожалуйста:) Pascal

Помогите пожалуйста:) Pascal

Нет комментариев

Ответы

Гость

Var x,k:integer;begink:=0;repeatwriteln('введите x');readln(x);if (x>1) then k:=k+1until x=0;write('k=',k);end.

Нет комментариев

Похожие вопросы

Информатика

НАПИШИТЕ НА С++ Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c....

Ответить

Информатика

Помогите найти ошибку, пожалуйста

ЗАДАЧА:
Даны два БоЛьШуЩиХ ЧиСЛа. Проверьте, делится ли их произведение на девять.

Формат файла входных данных:
В двух строках входного файла даны два целых неотрицательных числа, по одному в строке. Запись каждого из них состоит из не более чем 106 цифр.

Формат файла вых...

Ответить

Информатика

Исполнитель умеет:
1.умножать число на 2
2. увеличивать число на 1

составить для этого исполнителя алгоритм получения числа 100 из единицы за минимальное число шаров.Ответ записать последовательностью команд....

Ответить

Информатика

Заполните массив случайными числами в диапазоне 0..100 и подсчитайте отдельно среднее отдельно среднее значение все элементов, меньших 50, и среднее значение все элементов, которые больше или равны 50 (Паскаль)....

Ответить

Информатика

Напишите программу на языке Паскаль к 1 заданию. 16 баллов...

Ответить

Информатика

Помоги пожалуйста !!10 баллов...

Ответить

Список предметов

Математика

Литература

Русский язык

Геометрия

Английский язык

Биология

Другие предметы

Обществознание

Окружающий мир

География

Українська мова

Українська література

Қазақ тiлi

Беларуская мова

Информатика

Экономика

Французский язык

Немецкий язык

Психология