<span>Как называется указание на языке HTML - d)тег
Какое сокращение показывает официальный адрес интернет-ресурсов - a) URL </span>
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
1) Условие неполное. Что делать с числами 0, 5, 10 ... 1000?
2)
var a,b,c,max: integer;
begin
writeln('Введите 3 числа через пробел:');
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max=',max);
<span>end.</span>
Ответ:
Объяснение:-взять арбуз
-взвесить его на весах
-взять (70*масса арбуза) тенге у покупателя
-дать арбуз покупателю
//Я так понял, что нужно писать программу на языке С (так как была указана стандартная библиотека stdio.h данного языка) с использованием операторов if и else
#include <stdio.h>
#include <locale.h>
int main()
{
setlocale(LC_ALL, "Rus");
int num;
printf("Введите номер времени года: ");
scanf("%d", &num);
if (num == 1)
printf("\nЗима:\n1) Декабрь\n2) Январь\n3) Февраль\n");
else if (num == 2)
printf("\nВесна:\n1) Март\n2) Апрель\n3) Май\n");
else if (num == 3)
printf("\nЛето:\n1) Июнь\n2) Июль\n3) Август\n");
else if (num == 4)
printf("\nОсень:\n1) Сентябрь\n2) Октябрь\n3) Ноябрь\n");
else
printf("\nВремени года с данным номером не обнаружено!\n");
return 0;
}