<u>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var r:integer;
var x:real;
while true do begin
Write('Выберите тип единицы длины:',NewLine,
'1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' );
Read(r);
if r=0 then begin Writeln('Пока!'); Exit end;
Write('Введите длину в этой единице: '); Read(x);
case r of
1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ',
x/10000,' км');
2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ',
x*1000000,' мм');;
3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ',
x/1000,' км');
4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ',
x/1000000,' км');
5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ',
x/100000,' км');
end
end
end.
Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
program raf105;
var a,b:real;
begin
write('Ввод: ');
read(a);
while a<>0 do
begin
a:= (a-((a/10-(round(a/10)))*10))/10;
b:= b+1;
end;
write('Вывод: ',b);
end.
<em>Программа написана на языке PascalABC.NET</em>
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
const int N=7;
int A[N];
cout << "Введите массив, состоящий из " << N << " элементов:\n";
for (int i=0; i<N; i++)
cin >> A[i];
cout << "Массив до - ";
for (int i=0; i<N; i++)
{
cout << A[i] << " ";
if (A[i]*A[i] < 25) A[i] *= 2;
}
cout << "\nМассив после - ";
for (int i=0; i<N; i++)
cout << A[i] << " ";
_getch();
return 0;
}
Microsft Visual C++ 2010
