Паскаль
10-11 класс
|
Найти произведение двух средних цифр четырехзначного числа.
var
number, first, second : integer; //Число, первая цифра, вторая цифра
begin
write('Число: ');
readln(number);
second := number mod 100 div 10;
first := number div 100 mod 10;
writeln('Произведение: ', first * second);
end.
Другие вопросы из категории
• в папке Входящие
• в адресной книге
• в папке Черновики
• в блокноте
Вычислить корни линейного уравнения,должна быть проверка на
неравенство коэффициента A к нулю.
Язык с++, можно и паскаль.
естах. Полученный массив вывести на экран.
Нужна прога для Паскаль АВС
Спасибо!
ядке. Каждый такой номер в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт (при этом используют посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством бит). Определите объем памяти, отводимый этой программой для записи 50 номеров.Желательно подробное решение
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;