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

Знания

Информатика

1 ответ:

Svetlana0744 года назад

0 0

var a,b,c,d;integer;

begin

readln(a,b);

c:=a+b;

d:=a*b;

writeln('сумма',c);

writeln('произведение',d);

end.

это для паскаля

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

4. Рассмотрите изображение. а) Определите вид графики._________________________________________________________________________b

Эмерик [7]

Это Векторная графика

Отсутствует треугольник

0 0

4 года назад

1.Составьте программу которая вычисляет произведение натуральных чисел кратных 23 в диапазоне от 100 до 6202.Найти произведение

Femor Sen

Var
   A:integer;
   P:real;
Begin
P:=1;
For A:= 100 to 620 do
    if A mod 23 = 0 then P:=P*A;
WriteLn('P = ',P);
End.

Результат работы программы:

P = 1.5255279798308E+55

Var
   A:integer;
   P:real;
Begin
P:=1;
For A:= 11 downto 6 do
    P:=P*A;
WriteLn('P = ',P);
End.

Результат работы программы:

P = 332640

0 0

4 года назад

Ошибка времени выполнения: Индекс находился вне границ массива Как исправить? Program A2; Var s:string; i:integer; Begin Readln(

mrbols [7]

var s:string;

i:integer;

begin

readln(s);

for i:= length(s) downto 1 do

if s[i]=',' then delete (s, i, 1);

writeln(s);

end.

0 0

4 года назад

Разработать проект, запрашивающий дату рождения пользователя и рассчитывающий, в какой день им было прожито 5000 дней.

Сергей 9957 [14]

Type
Dat = record
 d: integer;
 m: integer;
 y: integer
end;

function jday(pd: Dat): longint;
// Алгоритм 199б
// "Переход от календарной даты к порядковому номеру дня и обратно"
// взят из сборника // "Библиотека алгоритмов 151б-200б", М.И.Агеев и др.,
// М.: Радио и связь, 1981
//
// Алгоритм возвращает порядковый номер дня по Юлианскому календарю.
// Работает для дат, начиная с 01.01.4713 до н.э.
var
c, ya: longint;
begin
with pd do
begin
 if m > 2 then m := m - 3
 else
 begin
 m := m + 9;
 y := y - 1
 end;
 c := y div 100;
 ya := y mod 100;
 Result := ((146097 * c) div 4) + ((1461 * ya) div 4) +
 ((153 * m + 2) div 5) + d + 1721119
end;
end;

function jdate(j: longint): Dat;
// Алгоритм 199б
// "Переход от календарной даты к порядковому номеру дня и обратно"
// взят из сборника // "Библиотека алгоритмов 151б-200б", М.И.Агеев и др.,
// М.: Радио и связь, 1981
//
// Алгоритм возвращает дату григорианского календаря по
// порядковому номеру дня Юлианского календаря.
// Работает для дат, начиная с 01.01.4713 до н.э.
var
dd, mm, yy: integer;

begin
j := j - 1721119;
yy := (4 * j - 1) div 146097;
dd := (4 * j - 1 - 146097 * yy) div 4;
j := (4 * dd + 3) div 1461;
dd := (4 * dd + 7 - 1461 * j) div 4;
mm := (5 * dd - 3) div 153;
dd := (5 * dd + 2 - 153 * mm) div 5;
yy := 100 * yy + j;
if mm < 10 then mm := mm + 3
else begin mm := mm - 9; yy := yy + 1 end;
Result.d := dd;
Result.m := mm;
Result.y := yy
end;

var
d1,d2: Dat;
begin
Writeln('Введите дату рождения в формате <день месяц год>: ');
Read(d1.d, d1.m, d1.y);
d2:=jdate(jday(d1)+5000);
Writeln('5000 дней прожито ',d2.d,'.',d2.m,'.',d2.y)
end.

Тестовое решение:
Введите дату рождения в формате <день месяц год>:
9 10 1997
5000 дней прожито 18.6.2011

0 0

4 года назад

Напишите следующую программу. Введите с клавиатуры целое число N. Выведите на экран числа от 1 до N так, чтобы каждое число выво

Mishulek

Вообщем, сделал задачу, но метод пузырька уже не выйдет :) т.е. сортировка по возрастанию :( упрощал как мог.

Program asd;
USES crt;
Var n,m,i,j:integer;
BEGIN
Clrscr;
Writeln('Введите число n: ');
Readln(n);
n:=n+1;
For i:=1 to n do
begin n:=n-1;
For j:=1 to n do
begin
Write(n:3);
end;
end;
END.

0 0

3 года назад