ну я тут тебе решила)) хе-хе..
Using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;
namespace ConsoleApplication3{ class Program { static void Main(string[] args) { Console.Write("a = "); double a = double.Parse(Console.ReadLine()); Console.Write("b = "); double b = double.Parse(Console.ReadLine()); Console.Write("c = "); double c = double.Parse(Console.ReadLine()); if (a > b) a = b; if (a > c) a = c; Console.WriteLine("Min = {0}", a); Console.ReadKey(); } }}
Блок-схема - в прилагаемом файле. Программа на паскале:
var a,b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a<>b
then begin a:=a+b; b:=a; end
else begin a:=0; b:=0; end;
writeln('a = ',a,' b = ',b);
end.
Пример:
a = 2
b = 5
a = 7 b = 7
Во вложении архив с проектом программы. Сайт не позволяет загружать файлы архивов, поэтому изменил расширение.
1. Сохраните файл вложения на диск
2. Измените расширение файла с .pdf на .7z
3. Распакуйте архив, должно быть 4 файла:
- supermarket.dpr
- supermarket.exe
- unit1.pas
- unit1.dfm
Проект сделан на Delphi 2007, открывать нужно dpr файл, остальное создается автоматически.
program T;
const Pi = 3.14;
var C, R, S: real;
begin
writeln('Введите Радиус:');
readln(R);
C:= 2*Pi*R;
S:= Pi*sqr(R);
writeln('C = ', C, ', S = ', S);
end.
Немного не уверен в const, т.к. не пользуюсь этим, но поиграй там: поставь двоеточие, если не сработает. А так программа должна, в принципе работать. Только одно НО: у тебя неправильно на счёт integer, так как число пи - не целое, и программа выдаст ошибку.
