Нужно написать программу, написать программу, которая предлагает пользователю ввести год своего рождения и текущий год и в ответ показывает возраст пользователя.
Пример на c#, если знаешь другой язык программирования, то можешь легко перевести: int godr; // год рождения int godt; // текущий год int vozrast; // результат вычислений Console.WriteLine("Введите год своего рождения"); godr = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите текущий год"); godt = Convert.ToInt32(Console.ReadLine()); vozrast = godt - godr; Console.WriteLine("Вам {0}", vozrast); Console.ReadKey();
Так как по условию задачи нам не нужно выводить на экран считанную информацию с клавиатуры,то вывод переменной нам будет необходим только в случае обращения по имени.
var a:string; begin writeln('Как тебя зовут ?'); readln(a); writeln('Привет ',a,' !'); writeln('Сколько тебе лет? '); readln(); writeln('Какой у тебя любимый предмет в школе?'); readln(); writeln('Какая у тебя любимая книга'); readln(); end.
Если же,необходимо запомнить всю полученную информацию,тогда используем этот вариант:
var a,b,c,d:string; begin writeln('Как тебя зовут ?'); readln(a); writeln('Привет ',a,' !'); writeln('Сколько тебе лет? '); readln(b); writeln('Какой у тебя любимый предмет в школе ?'); readln(c); writeln('Какая у тебя любимая книга ?'); readln(d); write ('Значит тебя зовут ',a ,'. Тебе ',b,'. Твой любимый предмет - ',c,'. И твоя любимая книга - ',d); readln(); end.
Var s,q:string; i,n,j,m,k,l:longint; begin Readln(s); m:=maxlongint; s:=' '+s+' '; for i:=1 to length(s) do if s[i]<>' ' then begin if s[i-1]=' ' then l:=i; if s[i+1]=' ' then begin if m>length(copy(s,l,i-l+1)) then begin q:=copy(s,l,i-l+1); m:=length(q); end; end; end; Writeln(q);{Слово} writeln(m);{Кол. букв} end.
Var s:string; i,j,k,p,min,n:integer; begin Write('Введите предложение: '); Readln(s); s:=s+' '; n:=Length(s); min:=n; j:=0; for i:=1 to n do if s[i]=' ' then begin k:=i-j-1; if min>k then begin min:=k; p:=j+1 end; j:=i; end; Writeln(min,' ',copy(s,p,min)) end.
Program gt; var a:array[1..100000]of integer; i,h,j,k,p:integer; begin randomize; readln(h); for i:=1 to h do begin a[i]:=random(101)-50; write(a[i],' '); end; writeln; for i:=1 to h-1 do for j:=1 to h-1 do begin k:=a[j+1]; if(a[j]>a[j+1])then begin a[j+1]:=a[j]; a[j]:=k; end; end; p:=0;k:=1; for i:=2 to h do begin if(a[i]=a[i-1])then k:=k+1; if(a[i]<>a[i-1])or(i=h)then begin if(k>=2)then begin p:=p+1; writeln(a[i-1],' ',a[i-1]); end; k:=1; end; end; writeln(p,' кол-во парных чисел без повторений'); end.
Const n=10; var i: integer; var a: array[1..n] of integer; begin for i:=1 to n do begin a[i]:=random(1,50); write (a[i]:3); end; writeln; writeln ('Элементы, кратные 5:'); for i:=1 to n do begin if a[i] mod 5 =0 then write (a[i]:3); end; end.
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadInteger('Введите пятизначное натуральное число:').ToString; if s[2]<s[4] then Writeln('Вторая цифра меньше четвертой') else Writeln('Вторая цифра не меньше четвертой') end.
1) Var x:integer; Begin write('x='); readln(x); if x=2 then writeln('y=',sqrt(x*x)) else if (x>=3)and(x<=6) then writeln('y=',(3*x*x-5)) else writeln('Решений нет'); End.
2) Var x:integer; Begin write('x='); readln(x); x:=x mod 10; writeln('Последняя цифра квадрата числа: ',x*x); End.
int godr; // год рождения
int godt; // текущий год
int vozrast; // результат вычислений
Console.WriteLine("Введите год своего рождения");
godr = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите текущий год");
godt = Convert.ToInt32(Console.ReadLine());
vozrast = godt - godr;
Console.WriteLine("Вам {0}", vozrast);
Console.ReadKey();
Первая программа
var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a>b) then max:=a else max:=b;
if (c>max) then max:=c;
if (a<b)then min:=a else min:=b;
if (c<min)then min:=c;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.
Вторая программа
Она состоит из процедуры и выводит на экран начальное уравнение, корни уравнения и дискриминант.
program sqrturavnenie;
uses crt;
Var a, b, c:Real;
procedure sq(a, b, c:Real);
Var d, x1, x2:Real;
Begin
d:=b*b-4*a*c;
Writeln ('d= ', d) ;
If d>=0 then begin
x1:=(-b+sqrt(d)) /(2*a);
x2:=(-b-sqrt(d))/(2*a);
If x1=x2 then
Writeln ('x1= ', x1:6:2)
else
Writeln ('x1=', x1:6:2, 'x2= ', x2:6:2)
End
Else
Writeln ('Корней нет!');
End;
begin
Clrscr ;
Writeln ('a= ');
Readln (a);
Writeln ('b= ');
Readln (b);
Writeln ('c=') ;
Readln (c);
Writeln (a:6:2,'x*x+ ', b:6:2, 'x+ ', c:6:2);
sq(a, b, c);
Readln
end.
С комментариями будет трудно
var a:string;
begin
writeln('Как тебя зовут ?');
readln(a);
writeln('Привет ',a,' !');
writeln('Сколько тебе лет? ');
readln();
writeln('Какой у тебя любимый предмет в школе?');
readln();
writeln('Какая у тебя любимая книга');
readln();
end.
Если же,необходимо запомнить всю полученную информацию,тогда используем этот вариант:
var a,b,c,d:string;
begin
writeln('Как тебя зовут ?');
readln(a);
writeln('Привет ',a,' !');
writeln('Сколько тебе лет? ');
readln(b);
writeln('Какой у тебя любимый предмет в школе ?');
readln(c);
writeln('Какая у тебя любимая книга ?');
readln(d);
write ('Значит тебя зовут ',a ,'. Тебе ',b,'. Твой любимый предмет - ',c,'. И твоя любимая книга - ',d);
readln();
end.
s,q:string;
i,n,j,m,k,l:longint;
begin
Readln(s);
m:=maxlongint;
s:=' '+s+' ';
for i:=1 to length(s) do if s[i]<>' ' then
begin if s[i-1]=' ' then l:=i;
if s[i+1]=' ' then begin
if m>length(copy(s,l,i-l+1)) then
begin
q:=copy(s,l,i-l+1);
m:=length(q);
end;
end;
end;
Writeln(q);{Слово}
writeln(m);{Кол. букв}
end.
s:string;
i,j,k,p,min,n:integer;
begin
Write('Введите предложение: '); Readln(s);
s:=s+' ';
n:=Length(s);
min:=n;
j:=0;
for i:=1 to n do
if s[i]=' ' then begin
k:=i-j-1;
if min>k then begin min:=k; p:=j+1 end;
j:=i;
end;
Writeln(min,' ',copy(s,p,min))
end.
begin
readln(a);
if a=1 then write('Декабрь');
if a=2 then write('Январь');
и т.д
if a=12 then write('Ноябрь');
end.
begin
read (a);
readln (b);
if a>b then
writeln (a)
else writeln (b);
end.
var a:array[1..100000]of integer;
i,h,j,k,p:integer;
begin
randomize;
readln(h);
for i:=1 to h do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
for i:=1 to h-1 do
for j:=1 to h-1 do
begin
k:=a[j+1];
if(a[j]>a[j+1])then begin
a[j+1]:=a[j];
a[j]:=k;
end;
end;
p:=0;k:=1;
for i:=2 to h do
begin
if(a[i]=a[i-1])then k:=k+1;
if(a[i]<>a[i-1])or(i=h)then begin
if(k>=2)then begin
p:=p+1;
writeln(a[i-1],' ',a[i-1]);
end;
k:=1;
end;
end;
writeln(p,' кол-во парных чисел без повторений');
end.
var
i: integer;
var a: array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=random(1,50);
write (a[i]:3);
end;
writeln;
writeln ('Элементы, кратные 5:');
for i:=1 to n do begin
if a[i] mod 5 =0
then write (a[i]:3);
end;
end.
30 45 2 5 26 47 30 7 4 9
Элементы, кратные 5:
30 45 5 30
Ровно 13 строк:
program Geron;
var ab,bc,ca,p: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите сторону треугольника AB: ');
readln(ab);
write('Введите сторону треугольника BC: ');
readln(bc);
write('Введите сторону треугольника CA: ');
readln(ca);
p:=(ab+bc+ca)/2;
writeln('Площадь треугольника равна ',sqrt(p*(p-ab)*(p-bc)*(p-ca)):0:3)
end.
Отвечаю на N2
Объяснение:
Расписал на фотографии.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadInteger('Введите пятизначное натуральное число:').ToString;
if s[2]<s[4] then Writeln('Вторая цифра меньше четвертой')
else Writeln('Вторая цифра не меньше четвертой')
end.
ответ:алг прямоугольник
нач
сместиться в точку (3,1)
опустить перо
сместиться в точку (3,4)
сместиться в точку (9,4)
сместиться в точку (9,1)
сместиться в точку (3,1)
кон
Объяснение:
ответ:
объяснение:
var
a, b, c: real;
function square(a, b, c: real): real;
var
p: real;
begin
p: =(a+b+c)/2;
square: =sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
readln(a, b, c);
writeln(square);
end.
Вот ответ
Объяснение:
Правельный написано на фотке
Var i:integer;
begin
for i:=100 to 999 do if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');
end.
{While}
Var i:integer;
begin
i:=100;
while i<=999 do begin
if( if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' '); inc(i); end;
end.
{Repeat}
Var i:integer;
begin
i:=100;
repeat
begin
if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');
inc(i); end;
until i<1000;
end.
var
a:integer;
begin
readln(a);
if a>0 then
begin
a:=a+3;
writeln(a);
end
else
begin
a:=a-2;
writeln(a);
end;
end.
Перепиши в тетрадь.
//PASCAL ABC.NET
var
s, p, ab, bc, ca: real;
begin
read(ab, bc, ca);
p := (ab + bc + ca) / 2;
s := sqrt(p * (p - ab) * (p - bc) * (p - ca));
writeln(p, #10, s);
end.
#include <cmath>
#include <iostream>
using namespace std;
int main(){
int a,b,c,d;
cin >> d;
a = d%10;
b = d%100/10;
c = d/100%10;
d /= 1000;
d = d*1000+b*100+c*10+a;
cout << d;
return 0;
}
Объяснение:
Var x:integer;
Begin
write('x=');
readln(x);
if x=2 then writeln('y=',sqrt(x*x))
else
if (x>=3)and(x<=6) then writeln('y=',(3*x*x-5))
else writeln('Решений нет');
End.
2)
Var x:integer;
Begin
write('x=');
readln(x);
x:=x mod 10;
writeln('Последняя цифра квадрата числа: ',x*x);
End.
Sub SummFactorial()
Dim summ As Long
Dim i As Byte
For i = 1 To 9 Step 2
summ = summ + Fact(i)
Next i
MsgBox (summ)
End Sub
а эта функция вызывает сама себя (рекурсия) для расчета факториала
Function Fact(s As Byte) As Long
If s <= 1 Then
Fact = 1
Else
Fact = s * Fact(s - 1)
End If
End Function
и уточните, если нужно, что должно быть в подпрограмме - весь код или только расчет факториала