Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b) вещественных чисел от 3х с половиной до 8

@evil_evg · Регистрация: 23.12.2009

Студворк — интернет-сервис помощи студентам

помогите решить
Найти суммы двух случайных чисел.
a) целых чисел из диапазона от 50 до 100
b) вещественных чисел от 3х с половиной до 8

@Lyohich84 · 13.06.2010, 15:14

Pascal

uses crt;
var
{a}
a,b:integer;
s1:integer;
{б}
c,d:real;
s2:real;
 
begin
clrscr;
randomize;
{a}
a:=50+random(51); b:=50+random(51);
s1:=a+b;
writeln('a=',a,' b=',b);
writeln('Summa=',s1);
{б}
c:=3.5+random*4.5;
d:=3.5+random*4.5;
s2:=c+d;
writeln('c=',c:6:4,'d=':4,d:6:4);
writeln('summa=',s2:6:4);
readln
end.

@evil_evg 1 / 1 / 1 Регистрация: 23.12.2009 Сообщений: 21
		1
	Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b) вещественных чисел от 3х с половиной до 8 13.06.2010, 13:42. Показов 2546. Ответов 1 Метки нет (Все метки) помогите решить Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b) вещественных чисел от 3х с половиной до 8 0

Опции темы

Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b) вещественных чисел от 3х с половиной до 8

Решение