Опубликовано 12.06.2017 по предмету Информатика от Гость >> end.
program znanija;
var a,b:integer;
begin
a:=0;
b:=10;
repeat
a:=a+b;
inc(b); // Прибавляем единицу к переменной b. Тоже самое что b:=b+1;
until b>99;
Оцени ответ
- Алгебра
- Математика
- Русский язык
- Українська мова
- Информатика
- Геометрия
- Химия
- Физика
- Экономика
- Право
- Английский язык
- География
- Биология
- Другие предметы
- Обществознание
- История
- Литература
- Українська література
- Беларуская мова
- Қазақ тiлi
Показать ещё
Практическая часть урок 15 Сумма двух чисел
Источник: www.shkolniku.com
Написать программу которая вычисляет сумму двух чисел
Привет Лёва Середнячок
Написать программу которая вычисляет сумму произведения и среднее арифметическое двух целых чисел введеных с клавиатуры
Комментарии
3 (2 оценки)
AwePlaxa 8 лет назад
Светило науки — 22 ответа — 269 раз оказано помощи
var a,b,c,d:integer;
e:real;
begin
writeln(‘Введите а и б: ‘);
readln(a,b);
c:=a+b;
d:=a*b;
e:=(a+b)/2;
Writeln(‘Сумма двух чисел: ‘,c);
Writeln(‘Произведение двух чисел: ‘,d);
Практическая часть урок 15 Сумма двух чисел
Writeln(‘Среднее арифметическое двух чисел: ‘,e);
end.
Источник: vashurok.com
Задачи по Pascal. Сумма двух чисел
Задачи по Pascal
Автор cyber На чтение 2 мин.
Условие задачи : Вводятся три произвольных числа. Проверить не является ли одно из них суммой двух других.
Сложность : легкая .
Для решения этой задачи нам понадобиться три переменные под числа и оператор условия if.
Давай те объявим эти три переменные и попросим пользователя занести в них какие то целые числа :
uses crt ; var num1 , num2 , num3 : integer; begin write(‘Введите первое число : ‘); readln(num1); write(‘Введите второе число : ‘); readln(num2); write(‘Введите третье число : ‘); readln(num3); end.
Дальше нам надо написать условие… как оно у нас будет работать ?