Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 77.

Составить процедуру сложения двух чисел, вводимых с клавиатуры.

uses crt;
var a,b,s:real;
procedure summa (x,y:real;var s:real);
begin
  s:=x+y;
  writeln('s=',s:3:l, ' ',a:3:l,' ',b:3:l);
end;

begin
  clrscr;
  writeln('a=b=');readln(a,b);
  summa(a,b,s);
  writeln('s=',s:3:1,' ',a:3:1,' ',b:3:1);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru